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EDITORIAL 



UN POCO DE SERIEDAD POR PAVOR 



Haciendo gala de la ética profesional que 
debe observar cualquier publicación que se 
precie, siempre que en nuestros editoriales 
nos hemos visto obligados a mencionar al- 
guna revista de la competencia nos hemos 
negado a dar el nombre de la misma. Sin 
embargo, cuando los medios informativos 
caen en la más directa tomadura de pelo a 
los usuarios y lectores, no podemos hacer 
otra cosa que denunciar con pelos y señales 
a quien se atreve de forma solapada, a la par 
que con todo el descaro del mundo, a sem- 
brar la confusión entre los lectores. Dicho 
esto, y teniendo en cuenta que la noticia ha 
causado inquietud entre los usuarios del 
MSX, vamos de una vez por todas a aclarar 
la cuestión. En la revista EL ORDENADOR 
POPULAR del mes de febrero apareció un 
artículo titulado MSX estándar para la 
educación que no tiene desperdicio. En él 
se vierten de forma arbitraria toda una se- 
rie de informaciones —mejor dicho desin- 
formaciones-, que no acertamos a enten- 
der de donde han salido. Pero si estas afir- 
maciones ya son de por sí alucinantes, no 
menos alucinantes son las conclusiones a 
las que llega el articulista. No vamos a en- 
trar aquí en detalles, porque este no es el 
objeto de este editorial, y porque desde 
nuestra sección Input Output ya contesta- 
mos a toda esa serie de infundios. Lo que 
desde esta tribuna abierta nos preocupa 
realmente es la tomadura de pelo a la que 
aludimos porque quienes editan EL ORDE- 
NADOR POPULAR pertenecen al mismo 
grupo editorial -y ahora lo vamos a decir 
con todas las letras- de quienes publican la 
revista MSX MAGAZINE, de modo que o les 
están tomando el pelo a los lectores desde 
EL ORDENADOR POPULAR o lo que es peor 
están editando una revista de MSX sin nin- 
gún convencimiento. Todo esto viene a con- 
firmar algo que ya hemos advertido en va- 
rias ocasiones, la escasa fiabilidad de quie- 
nes con tal de hacer su agosto publican indis- 
tintamente revistas para cualquier es tan- 
dar del mercado. Juzguen ustedes mismos. 

MANHATTAN TRANSFER 
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HABDCOPT 

Además de felicitarles por 
su revista quiero preguntarles 
cómo imprimir gráficos con 
ella, ya que sólo consigo sacar 
listados con la orden LLIST. 

Pedro Guzmén 
Madrid 

Te recomendamos la lectura 
de «Volcado de pantalla» publi- 
cado en nuestro número ante- 
rior. 




PRECIO DE LA BEE 
CAED 

Ruego me confirmen el pre- 
cio de la BEE CAED ya que en el 
mes de octubre daban uno de 
2.300 pts. y en una tienda de 
ordenadores me piden 8.900 
pts. 

Javier Jiménez Vázquez 
Bilbao 

El precio que dimos en aque- 
lla ocasión fue suministrado 
erróneamente por bu importa- 
dor. Posteriormente hemos 
dado a conocer el precio apro- 
ximado de venta al público, 
que es de 8.600 pts. 



MSX Y SPECTRUM 

|Holal Vuestra revista es 
alucinante y por eso quiero 
que me saquen una duda. Quie- 
ro comprarme un ordenador y 
un niño de mi clase dice que 
me compre un Spectrum de 
48K, pero hay otro que se lla- 
ma J. Romero quiere que me 
compre un HIT BIT de 64K 
MSX 

David Llop Vixgili 

Inui 

Cualquier ordenador de la 
norma MSX tiene un gran fu- 
turo tanto en el hogar como en 
la escuela. 

Soy suscriptor de vuestra re- 
vista y creo que hacerlo tiene 
muchas ventajas; se lo reco- 
miendo a todos los lectores. 

Me he enterado que el Spec- 
trum de 48 K, con menor me- 
moria que la mayoría de los 
MSX, posee un área Ubre de 



unos 40K, mientras que los 
MSX, una de 30K aproximada- 
mente. Me gustaría saber por- 
qué tienen los Spectrum más 
memoria disponible que los 
MSX. 

Alejandro López Ramón 
Madrid 

Los ordenadores de la norma 
MSX de 64K RAM, por ejemplo, 
disponen de esa memoria del si- 
guiente modo; 29K libres para 
el usuario, 3SKpara el sistema 
operativo de disco. A esta me- 
moria hay que sumarle 1GK 
mas de vídeo RAM, para la reso- 
lución gráfica con lo que en rea- 
lidad son aparatos de 80K de 
RAM. El Spectrum tiene 48K de 
RAM pero de ellos debe dar 40 
para el usuario, ya que éste ne- 
cesita más memoria debido a la 
menor potencia del lenguaje 
que emplea. Como ves, las apa- 
riencias pueden engañar. 



GRABACION 

Hace poco me he comprado 
un Spectravídeo 728 pero no 
sé cómo grabar. ¿Es que nece- 
sito comprar un copie? 

Jorge de Castro 
Valladolid 




No necesitas comprar nada 
especial como no sea una gra- 
badora si es que no la tienes. 
Con ella en tu poder y hechas 
las conexiones pertinentes 
sólo tienes que seguir las ins- 
trucciones que te indica el ma- 
nual. También puedes leer 
nuestro artículo «Cómo gra- 
bar un cassette» aparecido en 
el número 3. 

He comprado una unidad de 
disco Sony a fin de almacenar 
programas en Código Máqui- 
na, pero resulta que sólo me 
entran 22 y después me sale 
IUegal Functlon. Sigo las Ins- 
trucciones Bsave «nombre del 
programa», doy las direccio- 
nes inicial y final y ejecuto, sin 
resultado positivo. 

Juan González Castilla 
Le joña C Vizcaya) 

Las instrucciones de graba- 
ción son correctas por lo que 
Ignoramos si no existe otro 
motivo que impida la graba- 
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ción de sus programas. Si bien 
dice 28, por ejemplo, no sabe- 
mos la longitud de los mismos. 
También puede suceder que su 
Unidad de Disco tenga algún 
problema interno, por lo que le 
recomendamos que consulte 
al Servicio Oñcial de Sony. 



MEZCLAR TROZOS 

¿Qué debo hacer para grabar 
los programas por trozos? 
Siempre que lo intento en un 
listado largo me quedan dos 
programas separados que no 
me son de ninguna utilidad. 
Juan Feo. López Pérez 
(CUENCA) 

Si utilizas CSAVE Y CLOAD, 
evidentemente tendrás este 
problema. Para unir dos tro- 
zos de un programa, debes gra- 
bar los «trozos» con SAVE 
(formato ASCII) y para unir- 
los, debes emplear la orden 
MERQE: 

MERGE "CAS:" 

Ah, ten cuidado con la nume- 
ración de las líneas, porque si 
coincide alguno de los que en- 
tres con uno que ya tengas, 
sólo te quedará el último. 



FRACTALES 

Os escribo la presente para 
hacer algunas puntualizacio- 
nes al artículo que apareció en 
el n.° de febrero sobre los con- 
juntos fractales. 

-La geometría fractal no es 
la «Geometría de lo Imposi- 
ble», pues una recta es un con- 
junto fractal: la menor partici- 
pación que hagamos seguirá 
siendo una recta, por lo tanto 
tiene la propiedad de la autosi- 
milaridad. 

-En vuestro artículo se afir- 
ma que el universo tiene mas 
de tres dimensiones espacia- 
les. Bien, hay infinitas, pero 
nunca podrá ser menor que o 
mayor que 3. 

-El último párrafo de la «di- 
mensión de lo fractal» está ín- 
tegramente copiado del artícu- 
lo aparecido en la revista «EL 
ORDENADOR POPULAR» de 
11/84. 

-La curva dragón no es un 
fractal pues se pueden hacer 
partioiones que contengan un 
trozo de curva y éstas no son 
curvas dragón 

Samuel T amar agüe 
jllJ B BX D 

Vamos por partes: En nin- 
gún lugar del artículo citado se 
afirma que una recta no sea un 
conjunto fractal, simplemente 
se han utilizado otros ejem- 
plos para ilustrarlo, tal vez 
más claros que la recta. En 
cuanto al título «La geometría 
del imposible», no nos parece 
tan desacertado puesto que no 



hemos conseguido ver nunca 
una recta suelta por ahí. 

En ningún párrafo del artí- 
culo se afirma que haya más 
dimensiones de las compren- 
didas entre Oy 3 aunque este- 
mos seguros de ello. Lamenta- 
mos informarte de que el pá- 
rrafo al que te refieres de la di- 
mensión de lo fractal no está 
íntegramente copiado del n.° 
al que te refieres deJ ORDENA- 
DOR POPULAR ni de otra re- 
vista, simplemente está docu- 
mentado en el n.° 4 Vol. 3 de 
«Computer Qames». 

Efectivamente, la curva dra- 
gón cuyo listado publicamos, 
no es una fractal estrictamen- 
te, pero como advertimos en el 
propio artículo «... está pensa- 
do para que te hagas una idea 
del principio de autosimilari- 
dad». 



Agradecemos tu interés por 
clarificar los puntos oscuros 
que has observado en nuestro 
artículo, y estamos seguros 
que todos nuestros lectores 
también te lo agradecerán. 



PRECIO MAS IVA 

Les escribo para preguntar- 
les por qué subió 25 pts. la re- 
vista MSX CLUB y sólo 10 pts. 
ésta. Además otra razón es fe- 
licitarlos tanto por los progra- 
mas como por los artículos. 
Jacobo Gómez Tomillo 
Valladolid 

Las diez pesetas del mes de 
enero, tal como explicamos se 
debió a un error de cálculo, por 
lo que ya habrás comprobado 
que lo hemos corregido y am- 
bas revistas cuestan ahora 



ATAQUES INFUNDADOS 
CONTRA EL MSX 



En un artículo publicado en 
«Ordenador popular» de febre- 
ro referido a MSX se puede leer 
entre otras cuestiones lo si- 
guiente: «Tras su fría acogida 
en el mercado doméstico, los 
fabricantes de equipos MSX 
buscan refugio en el incipien- 
te, pero importante mercado 
educativo»; «Fracasó el soft- 
ware, ni han sido tantos ni tan 
buenos los programas para 
este tipo de máquinas»; «La 
compatibilidad no fue tan ab- 
soluta»; «Los colegios que es- 
tén dotados de equipos M8X 
quedarán aislados...»; «Pese a 
las promesas son varias las 
compañías que están evolucio- 
nando —y rápidamente— hacia 
la ruptura del estándar MSX». 
Hay otras frases igualmente 
preocupantes si son ciertas 
pues los usuarios quedaremos 
«colgados» con nuestros equi- 
pos. Quiero que me aclaren sí 
son fundadas estas afirmacio- 
nes o es fobia o envidia de esta 
publicación hacia nuestro es- 
tándar. Ustedes tienen la res- 
puesta. 

Francisco Bsquivel 
Córdoba 

Ninguna de las afirmacio- 
nes hechas en el artículo que 
menciona tienen el más míni- 
mo fundamento. 861o quien ig- 
nora el alcance de la operación 
comercial y tecnológica, apo- 
yada por casi veinte grandes 
compañías de prestigio mun- 
dial y no por una sola marca, 
puede sostener tales frivolida- 
des. Pero vayamos por partes. 
-Es palpable el éxito rotun- 
del estándar en el mercado 
\ol dentro del sector do- 




méstico, alcanzando en el pla- 
zo de un año casi el 40% del to- 
tal de ventas, antes monopoh- 
zadas por otras marcas con 
varios años de presencia. Al 
mismo tiempo, la potencia de 
su lenguaje, la versatilidad de 
las máquinas ofrecidas y la po- 
sibilidad de un futuro sin aisla- 
mientos por obsolescencia, 
hacen del estándar el más idó- 
neo para aplicaciones educati- 
vas, de gestión doméstica o de 
pequeños negocios. 

-El software no ha fracasa- 
do. Simplemente que los fabri- 
cantes de software no han 
reaccionado con la misma ra- 
pidez que lo ha hecho el públi- 
coypor tanto no hay suficien- 
te. No obstante, según una re- 
ciente estadística publicada 
por el Centro Divulgador de la 
Informática, dependiente de la 
Oeneralltat de Catalunya, MSX 
cuenta con el doble de progra- 
mas educativos que cualquiera 
de las otras marcas o sistemas. 

Los colegios y los usuarios 
particulares de MSX están en 
mejores condiciones que cua- 
lesquiera otros para irse adap- 
tando a los avances tecnológi- 
cos. En primer lugar porque la 
compatibilidad es absoluta en- 
tre los aparatos MSX debido a 
que todo fabricante con licen- 
cia de Microsoft debe cumplir 
estrictamente con las normas 
de compatibilidad. En segundo 
término, los aparatos MSX a 
través de su sistema operativo 
MSX-DOS son compatibles con 
los dos sistemas operativos 
para discos más populares en 
ordenadores profesionales de 
18 bits, MS-DOS y CP/M. 



1 75 pts, incluido IVA. En prin- 
cipio hicimos el cálculo sobre 
el precio anterior, pero no tu- 
vimos en cuenta los costos in- 
cidentales —imprenta, papel, 
fotocomposíción, etc.— modifí- 
cados por el mismo impuesto. 
GRACIAS POR LAS FELICITA- 
CIONES. 



CONEXION CON EL 
VIDEO 

Tengo un Canon V-20 y me 
gustaría saber cómo se puede 
conectar el ordenador al apa- 
rato de vídeo. He intentado ha- 
cerlo a través de la salida RF 
del ordenador con la entrada 
de antena del vídeo pero no 
sintonizo nada. 

Miguel Borrego 
Olot (Girona) 

Para realizar este tipo de co- 
nexiones necesitas que tu or- 
denador cuente con una salida 
RGB (Red, Green, Blue). Por 
ahora los únicos aparatos que 
cuentan con esta salida son el 
HIT BIT 75 y el JVC HC- 7E. 



FUNCION PLAY 

Tengo un Toshiba HX-10 y 
me encuentro con un proble- 
ma con la instrucción PLAY, 
pues casi todas las líneas que 
la llevan me salen con niegal 
Function Cali al ejecutarlas. 
Reviso las líneas y están bien. 
También quiero saber si el so- 
nido sale por el altavoz del te- 
levisor o tengo que conectar 
un equipo de audio. 

Tomás Pérez 
Madrid 




Los problemas que tienes 
con la orden PLAY pueden de- 
berse a que confundes «unos» 
por «eles» o viceversa, por lo 
que te recomendamos que te fi- 
jes bien en esos detalles. Tam- 
bién otra confusión frecuente 
es la de los «ceros» y las «oes». 
El sonido «viaja» Junto con la 
señal de imagen a través de la 
salida RF y llega vía antena a 
tu televisor. 
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CARGA DE PROGRAMAS 

¿Un programa que carga 
con load puede cargar con 
cload? 

¿Cómo se puede hacer para 
que en modo gráfico no haya 
que poner un GOTO al final 
para que no cambie a modo de 
texto? 

Javier Ib arel 
Guadal ajara 

En ningún caso un progra- 
ma grabado con SAVE puede 



ser cargado con la orden 
CLOAD, y no se puede utilizar 
más que el comando corres- 
pondiente para cargar un pro- 
grama. Esto sucede porque 
cada vez que utilizas una or- 
den de grabación o carga el or- 
denador transite (en el caso de 
la grabación) en un formato 
determinado los datos, y en el 
caso de la carga espera recibir 
los datos en el formato que se 
le indica en la orden en cues- 
tión. Los MSX pueden trabajar 



con 3 formatos diferentes: 
Formato interno ( Csave para 

grabar y Cload para cargar) 
Formato ASCII (Save para 

grabar y Load para cargar) 
Formato Binario (Bsave para 

grabar y Bload para cargar) 
Si no deseas crear un «bucle 
infinito» (poner un COTO al Ü- 
nal) puede usar cualquiera de 
las siguientes opciones: 

i ooo z'$=^bY$(Tj 

2) 

1000 IF INKEYi =" " THEN 
1000 

3) 

1000 IF INKEYt "A" THEN 
1000 

La primera y segunda opcio- 
nes que te presentamos son 
prácticamente la misma: en el 
momento en que pulses cual- 
quier tecla, se interrumpirá el 
programa y volverá a modo de 
texto. Con el tercer ejemplo no 
se detendrá el programa a no 
ser que se pulse la tecla especl- 
fícada (en el caso que mostra- 
mos, la A). 



ARCHIVO 
DISCOGRAFICO 

Me gusta teclear los progra- 
mas que remitís en cada revis- 
ta y hasta ahora me funcionan 
bien, pero al teclear Archivo 
discográflco me sale «out of 
memory in 470». No compren- 
do porqué, ya que no aclaráis 
que sea para ordenadores de 
más de 32K. Les aclaro que yo 
tengo un Hit Bit 56P. 

Jorge Sanmartín Moreno 
Quart de Poblet (Valencia) 

-Aunque no lo aclaramos este 
programa es para 32K. De to- 
dos modos para que Archivo 
Discográñco te funcione en tu 
ordenador puedes colocar mo- 
dificar la línea 260 DIM NG$ 
(100), NA$ (100, 20), 
TA(IOO). 



PROBLEMAS DE 
IMAGEN 

Después de leer vuestra opi- 
nión acerca del X'Press no lo 
dudé y cambien el MSX que te- 
nía por este modelo. Pero re- 
sulta que ahora tengo un pro- 
blema y es que el Manual que 
me dieron viene en inglés. Por 
lo que les sugiero que me indi- 
quen uno que venga en caste- 
llano. Por otro lado tampoco la 
imagen me sale nítida en el te- 
levisor, como me salía con el 
Sony que tenía antes ¿puede 
ser problema del ordenador? 

Francisco D. Osuna 
El Arenal (Baleares) 

La casa Indescomp, SA, dis- 
tribuidora ofícial del Spectra- 
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vídeo nos ha comunicado que 
los aparatos comercializados 
por ella tienen los manuales 
en castellano. En consecuen- 
cia te recomendamos que te di- 
rijas a la tienda donde lo com- 
praste y lo reclames. Las difi- 
cultades de imagen puedes so- 
lucionarlas aj ustando el tele- 
visor. 

Tengo un Toshiba HX-10 y 
cuando intento que salga una 
circunferencia en pantalla o 
un rectángulo me salen defor- 
mados. ¿Puede ser un proble- 
ma del televisor? También les 
comento que cada vez que co- 
pio un programa de revista, li- 
bro, etc. me sale con errores y 
no los encuentro por más que 
repase el listado. 

María del Mar Rubio 
Madrid 

Como le decimos a Francisco 
te recomendamos que ajustes 
la imagen del televisor. Una 
vez que te hayas familiarizado 
con la máquina y su lenguaje 
los errores de copias disminui- 
rán. No te desalientes. 



ME JORA A QUINIELAS 

Un amigo y yo hemos hecho 
unas modificaciones al pro- 
grama «Quinielas» aparecido 
en el número de enero. 

En primer lugar en las lí- 
neas 470, 480 y 490 donde 
pone PRINT";" cambiar por 
PRINT7", que es la misma te- 
cla más SHIFT y GRAPH. 

La línea 50 CLS: KEY OFF: 
COLOR 1,7 

La línea 560 PRINT" ¿Quie- 
res repetir (S/N)?"A$ 

Por último añadir: 

570 A$ = INKEY$ 
580 INPUT A$ 

590 IF A$ <> "S" AND A$ <> 
«N» THEN 580 
600 IF A$ = "S" THEN 620 
610 IF A$ = "N" THEN 630 
620 OLEAR: CLS: COLOR 6, 10: 
GOTO 60 

630 CLS: COLOR 15,4: KEY ON: 
END 

El programita lo que hace es 
suprimir teclas de función, 
cambiar el color de la pantalla, 
la presentación del recuadro 
de los resultados y una vez da- 
dos éstos, te pregunta si quie- 
res repetir o no. Si la respuesta 
es afirmativa cambiar el color 
de la presentación y vuelve a 
preguntar las apuestas. Si res- 
pondes que no regresa al color 
original terminándose el pro- 
grama y volviendo al modo di- 
recto. 

Carlos González García 
Barcelona 

Gracias por tu colabora- 
ción. 



CRITICAS 
Y SUGERENCIAS 



Soy lector de vuestras dos 
revistas pero me siento de- 
fraudado en cuatro puntos: 

1 - Repetición de programas 
en las revistas. Los lectores de 
sus dos revistas no tienen por 
que aguantar la repetición de 
programas como archivos, 
biorritmos, etc. 

2- Programas sencillos y 
cortos. Me refiero a progra- 
mas como Calendario, Solfeo, 
discos Tron, Severiano, etc. 
que están faltos de tema y grá- 
ficos. Aunque me gustan mas 
programas como La Caza, que 
vale la pena teclearlos. ¿Es que 
los que llevamos un año con 
vosotros tenemos que seguir 
soportando a los que empie- 
zan? 

3- La publicación de «Aquí 
están los 20 MSX de España» 
ha sido una pasada para relle- 
nar, puesto que no habéis pre- 
sentado ni uno nuevo. 

4- Cassettes. Me parece muy 
bien y creo que ha sido un cri- 
terio muy acertado el haber 
preparado bien las cassetes, 
para sacarlas con máximas 
garantías, no como otras edi- 
toriales a las que podría califi- 
car de estafadoras, pero no me 
parece bien que tengamos que 
pagarlas por anticipado con 
talón bancario. ¿Por qué ade- 
lantar dinero antes de recibir 
nada? 

Salvo estas precisiones debo 
deciros que no tenéis compe- 
tencia en cuanto a la calidad de 
vuestros artículos. Espero en- 
tendáis mi postura. 

Juan Carlos Prieto 
Valladolid 

1-Si bien muchos de nues- 
tros lectores son los mismos 
que los de nuestra hermana 
MSX CLUB, muchos otros no lo 
son. De todos modos ningún 
programa ha sido repetido en 
ningún número de ninguna de 
las dos revistas. Lo que tú lla- 



mas repetición de programas 
en realidad es repetición temá- 
tica, ya que los programas no 
son los mismos. 

2- Evidentemente no pode- 
mos dejar de publicar progra- 
mas sencillos y cortos, pero en 
cada numero tratamos de 
equilibrar unos y otros. Ten en 
cuenta que nuestra misión es 
satisfacer a muchos miles de 
lectores muy atentos. 

3- «Aqui están ¡os 20 MSX de 
España» es la primera guia de- 
tallada de los aparatos exis- 
tentes en nuestro país en di- 
ciembre. Muchos de ellos fue- 
ron presentados por primera 
vez en septiembre durante el 

3ie- SONIMAG. 

4- La seriedad con que plan- 
qui teamos nuestro trabajo es la 
üa» base del prestigio que hemos 
lie- ganado entre nuestros lecto- 
res. 

Como ves, entendemos tu 
postura y esperamos que 
nuestras respuestas sean sa- 
tisfactorias. 



Vuestras dos revistas son 
estupendas y espero que sigas 
asi y no lleguéis a caer en el 
oportunismo que he podido 
comprobar en otras. Me gusta- 
ría haceros una pequeña suge- 
rencia y es que publicarais los 
programas a modo de separata 
a fin de que podamos hacer con 
ellos una colección. También 
quiero que me informéis donde 
puedo pedir por correo la Bee 
Card y su conector. 

Genaro López 
As Pontes CLa Coruña) 

Tu sugerencia viene a apo- 
yar una idea que estamos estu- 
diando y que tal vez muy pron- 
to podamos llevarla a cabo. La 
Bee Card puedes solicitarla a 
Sony España, SA., Sabino de 
Arana, 42-44, 08028 Barcelo- 
na. 
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Calle 







N.° 



SUSCRIBETE HOY MISMO SI 



QUIERES ESTAR EN VANGUARDIA 



La primera revista de MSX de España en tu domicilip cada 
mes. Por el precio de DIEZ NUMEROS recibirás DOCE. 

Además ta condición de suscriptor te da derecho 
a descuentos y ofertas especiales en otos productos. 

TBANSFER, SJL 

Muy Importante: para evitar retrasos en la 
recepción de los números rogamos deta- 
lléis exactamente el nuevo número de los 
distritos postales. Gracias. 



Deseo suscribirme a la revista 
SUPERJUEGOS EXTRA MSX 

a partir del número 



Ciudad 



Tel. 



FORMA DE PAGO: Mediante talón b an- 
earlo a nombre de: 



L 



Provincia 



Cl. Roca i BatUe, 10-18 
08023 Barcelona 



TARIFAS: 

España por correo normal 
Europa correo normal 
Europa por avión 
América por avión 



Ptas. 1.780,- 
Ptas. 2.000 - 

Ptas. 2.800,- 
Ptas. 88 USA $ 



NUMEROS ATRASADOS • NUMEROS ATRASADOS 




MSX11 150 PTAS. 



MSX12-13 300PTAS. 



MSX 14 160 PTAS 



MSX15 175 PTAS. 



MSX16 175 PTAS 



¡LA I a REVISTA DE MSX DE ESPAÑA! 

PARA QUE NO TE QUEDES CON LA COLECCION INCOMPLETA SOLO TIENES QUE ENVIAR HOY 
MISMO EL BOLETIN DE PEDIDO CON TUS DATOS PERSONALES A «SUPER JUEGOS EXTRA MSX» 
-DPTO. SUSCRIPCIONES 01. Roca i Batlle, 10-12, 08023 Barcelona. 




para lo cual adjunto talón del Banco 

Nombre y apellidos 

Dirección 



n.° 



de SUPERJUEGOS EXTRA MSX 
a la orden de Manhattan Transfer, SJL 



^Población DP. 



Prov. 



... Tel.: 



«No se admite contrarreembolso» 



EL COMPACTO DE SONY 



Ha aparecido recientemente en el mercado un nuevo aparato de SONY, que manteniéndose en su habitual línea de calidad incorpora una serie 
de novedades de gran interés para los futuros usuarios que se decidan por este modelo. 



El HIT BIT 501 -P presenta el mis- 
mo diseño de sus predecesores 
(HB 101 y HB 201); la caja es de 
color negro, las teclas especiales y de 
función son grises y las alfanuméricas 
blancas. Este ordenador presenta la 
máxima memoria disponible para usua- 
rio, es decir 64K RAM + 16 VRAM. 
Como los otros modelos, también lleva 
incorporadas dos ranuras para cartucho 
en su parte superior y dos tomas para 
joystick en su parte lateral derecha. 

Lleva además la tecla RESET; tan 
práctica para no tener que desconectar 
el ordenador en caso de que se cuelgue 
un programa o se desee reinicializar un 
cartucho. 

Como sus hermanos anteriores, lleva 
además incorporada la tecla PAUSE, 
muy útil para detener la ejecución de un 
programa sin las limitaciones de la tecla 



STOP. Como ya viene siendo norma en 
los aparatos SONY, en el centro de las 
teclas del cursor puede insertarse un eje 
que simula un joystick, pudiéndose ex- 
traer y adosar a su parte posterior. 

Hasta ahora, lo que hemos dicho de 
este aparato pudiera muy bien aplicarse 
a cualquier otro ordenador SONY. Vea- 
mos pues, qué es lo que nos ha hecho 
"bautizar" al 501 P como "el compacto 
de SONY". 

LA DIFERENCIA 

Dos son, en realidad, las diferencias 
de este aparato con respecto a los mo- 
delos anteriores. Por un lado, cuando se 
conecta la máquina no aparece el habi- 
tual programa "PERSONAL DATA 
BANK" que viene incorporado en todos 
los aparatos de este fabricante, sino que 



se accede directamente al BASIC. No 
obstante, no deben inquietarse los 
usuarios, puesto que junto con el apara- 
to viene suministrado una versión en 
cassete de dicho programa. 

La segunda diferencia, que es la más 
visible aunque la hayamos dejado para 
el final, hace que el 501 de SONY sea 
uno de los aparatos más prácticos del 
mercado, pues este ordenador lleva in- 
corporada una lectograbadora de cas- 
sette. 

En su parte superior, a la izquierda de 
las ranuras de cartucho, este ordenador 
lleva un pequeño cassette (formato 
walkman) que ofrece las siguientes ven- 
tajas con respecto a los cassettes habi- 
tuales: 

- Recibe la alimentación directamente 
del ordenador, con lo que por un lado 
se resuelven los problemas de los 





aparatos que funcionan a pilas, y por 
otro se evitan enchufes y conexiones 
con todos los pequeños engorros que 
conllevan. 

Lleva un interruptor de monitor con 
tres posiciones, off , low y high, permi- 
tiéndonos respectivamente eliminar 
el monitor; oír la carga o grabación de 
los programas con un leve pitido a tra- 
vés del altavoz del monitor o bien au- 
mentar la intensidad del pitido. 
Un led colocado a la derecha del cas- 
sette nos informa acerca de la opera- 
ción en curso: Si el ordenador carga, 
el led se ilumina en verde; si graba en 
rojo. 

Además de las teclas habituales, in- 
corpora la tecla mute de gran utilidad 
puesto que sirve para dejar un espa- 
cio en blanco detrás de un programa. 
¿Para qué sirve dejar un espacio en 
blanco detrás de un programa? En el 
HB 501 sirve para que pueda activar- 
se la función ADS (Automatic Data 
Search) que nos va a permitir locali- 
zar rápidamente un programa pulsan- 
do PLAY+FFWD o bien PLAY+ 
REW siempre y cuando el espacio 
que hayamos blanqueado con MUTE 
sea como mínimo de cuatro segun- 
dos. 

Naturalmente, el cassette lleva in- 
corporado un cuentavueltas, para po- 
der controlar la ubicación de los datos 
o programas. 





CHA TECNICA 



Microprocesador Z80A 
Frecuencia de clock 3,58MHz 



Memoria ROM 
Memoria RAM 
Modo de texto 
Modo gráfico 
Colores 
Sprites 
Sonido 
Teclado 

Conexión cartucho 



32K 

64K+ 16KVRAM 

40x24 

256X192 

16 

32 

8 octavas/ 3 tonos 
QWERTY (profes: 
2 conectares 



Conexiones directas 2 joysticks 

impresora tipo centronic 
salida vídeo/ audio 
RF( antena TV) 
Terminal a tierra 

BASIC MSX, máquina, ensamblador, Pascal, Logo, etc 
Sony España, S A. 

Sabino de Arana 42-44. 08028 Barcelona 
65.000 pts. + 7.800 IVA 

Incorpora grabadora de datos, mando para cursor 
y selector de antena 



Lenguajes 
Distribuidor 

Precio aproximado 
OBSERVACIONES: 






Al estar incorporado en el ordena- 
dor, el control remoto del cassette se 
efectúa de una manera más racional. 
El "remote" interno sólo se activa 
para las operaciones en que intervie- 
ne la tecla PLAY; en otras palabras, 
permite bobinar y rebobinar sin estar 
constantemente pendientes de la or- 
den MOTOR o de conectar y desco- 
nectar la clavija REMOTE. 

En su parte posterior incorpora las 
salidas de antena (RF), impresora 
(centronics), vídeo/audio y una toma 
de tierra. 

En suma, se trata de un aparato de 
interesantísimas prestaciones, buen 
diseño que satisfará a aquellos usua- 
rios que deseen llevarse un «com- 
pacto» con cassette incorporado para 
ponerse a trabajar desde el primer 
momento. Además, por 65.000 pts. + 
IVA. ¿Quién da más? 



REGALATE Y DISFRUTA DE M LIBRO 
VITAL PARA EL USUARIO DE MSX 



UN LIBRO PENSADO 
PARA TODOS LOS QUE 
QUIEREN INICIARSE 
DE VERDAD EN LA 
PROGRAMACION BASIC 

Construcción de programas. El po- 
tente editor todo pantalla. Constan- 
tes numéricas. Series, tablas y ca- 
denas. Grabación de programas. 
Gestión de archivo y grabación de 
datos. Tratamiento de errores. Los 
gráficos del MSX. Los sonidos del 
MSX. Las interrupciones. Introduc- 
ción al lenguaje máquina. 



I U I) It <.l f KKIKO 



JUAN CAKI OS GON/AIKZ 



Dfunta rém úhw anurti 
9*iur mu kirlotkUd dr ejecución 

componei mútica a una, dos o tres voces 
organizar tus propios programas de gestión. .. 

LOS SECRETOS DEL 




Y ADEMAS PROGRAMAS 
DE EJEMPLO 

Alfabético. Canon a tres voces. 
Moon Germs. Bossa Nova. Blue 
Bossa. La Séptima de Beethoven. 
La Flauta Mágica de Mozart. Scra- 
ple from the apple & Donna Lee. The 
entretainer. Teclee un número. Ca- 
lendario perpetuo. Modificación 
Tabla de colores SCREEN 1 . Rec- 
tángulos en 3-D. Juego de caracte- 
res alfabéticos en todos los modos. 
Juego Matemático. Más grande más 
pequeño. Póker. Breackout. Apoca- 
lypse Now. El robot saltarín. El ar- 
chivo en casa. 



Deseo me envíen el libro Los secretos del MSX, para lo cual adjunto talón de 1.500 ptas. a la orden de 
MANHATTAN TRANSFER, S.A. importante: No se hace contra reembolsos. 

Nombre y apellidos 

Calle n.° Ciudad CP ................. 

Este boletín me da derecho a recibir los secretos MSX en mi domicilio libre de gastos de envío o 
cualquier otro cargo. 

Importante-, indicar en el sobre MANHATTAN TRANSFER, S.A. 

«LOS SECRETOS DEL MSX» 

Roca i Batlle, 10-12 Bajos-08023 BARCELONA 
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BIENVENIDOS A msxclub 

UN SOFTWARE DE ALTA CALIDAD PARA MSX 




KRYPTON. La batalla mas audaz de las gala- 
xias en cuatro pantallas y cuatro niveles de 
dificultad. Un juego cuya popularidad es cada 
vez más grande entre los usuarios del MSX. 
PVP. 500 Pus. 



U-BOOT. Sensacional Juego de simulación 
submarina en la que tienes que demostrar tu 
pericia como capitán de un poderoso subma- 
rino de guerra. Panel de mandos, sonar, tor- 

_ 



QUINIELAS. El mas completo programa de 
quinielas con estadística de la liga, de los 
aciertos, etc. e impresión de boletos. Acertar 
no siempre es cuestión de suerte. PVP. 700 



SNAKE. Entretenido y muy divertido juego 
en el. que Snake procura comer unos núme- 
ros que la engordan. Tanto las murallas que 
la rodean como su larga cola pueden ser 

moi 




EL 8ECRET0 DE LA PIRAMIDE. Atrevido 
juego de aventuras a través de los misterios 
y peligros que encierran los laberínticos pa- 
sillos de una pirámide egipcia (Atrévete si 
puedes! PVP. 700 Ptas. 




nñrombre y apellidos: 

Dirección: 

Población: 



CP 



Prov. 



Tel.: 



□ KRYPTON 

□ U-BOOT 

□ QUINIELAS 



□ SNAKE 

□ EL SECRETO DE LA PIRAMIDE 



L 



Ptas. 500,- 
Ptas.700,- 
Ptas. 700- 

Gastos de envío certificado por cada cassette Ptas. 70,- 

Remito talón bancario de Ptas. a la orden de Manhattan Transfer, S A 



Ptas. 600,- 
Ptas. 700, 




ATENCION: Los suscriptores tienen un descuento del 10% sobre el precio de cada cassette. 
2L™ MSX CLUB DE CASSETTES. ROCA I BATLLE, 10-12 BAJOS. 08023 BARCELONA 



NUESTRAS CASSETTES NO SE VENDEN EN QUIOSCOS. LA UNICA FORMA DE ADQUIRIRLAS ES SOLICITANDOLAS 

A NUESTRA REDACCION. ¡NO SE ADMITE COMPRA REEMBOLSO! 
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EL ORDENADOR MUSICAL (D 



Lamnaica computada ertáadneñkdosepocoapocode nuestro entorno. Toáosnos^ 
prooTUdtopornnde8pertador,aoireneldía de nuestro cumpleaños «happyb^ 

sonsonete de las máquinas tragaperras en las cafeterías... En snma, estamos absolutamente invadidos por la música computerizada. Los nsoarios de MSXno 



Por Feo. Javier Guerrero 
ALGUNOS BATOS TECUCOS 

Los ordenadores MSX vienen equi- 
pados con un generador progra- 
ble de sonido (PGS) fabricado por 
la prestigiosa firma General Instru- 
ments; este chip permite manejar simul- 
táneamente hasta tres voces, aparte de 
llevar incorporado un generador de rui- 
do. 

EL BASIC MSX tiene 3 comandos que 
permiten la generación de sonidos por el 
ordenador. El primero de ellos es tan 
simple que tan sólo lo mencionamos a 
título anecdótico. Se trata de BEEP, tan 
tristemente conocido por los sufridos 
usuarios del sistema, puesto que les avi- 
sa continuamente de los errores que se 
van produciendo durante la ejecución 
de los programas. Además de esto tiene 
otra utilidad, reinicializa el chip de soni- 
do a sus valores por defecto. 

Otro de los comandos musicales es 
PLAY, que da acceso al macrolenguaje 
musical (similar al macrolenguaje gráfi- 
co de DRAW) y permite trabajar hasta 
en tres canales simultáneamente. Esta 
peculiaridad de poder trabajar en tres 
canales, unida a la facilidad de manejo 
del macrolenguaje, permite -como ve- 
remos más adelante— adaptar cualquier 
partitura de agrado del usuario (siempre 
que tenga 3 voces como máximo), o 
bien efectuar sus propias composicio- 
nes o arreglos. ¡La polifonía al alcance 
de cualquiera...! 

SOUND es el tercer comando genera- 
dor de sonidos. Permite el acceso direc- 
to a todos los registros del PSG para la 
realización de interesantes efectos so- 
noros. Puede acceder a los tres canales 
de sonido en sus ajustes fino y aproxi- 
mado al generador de ruido; asimismo 
permite seleccionar el tono y el volumen 
de los tres canales, el envolvente y el 
patrón de envolvente. De este comando 
y sus aplicaciones nos ocuparemos pró- 
ximamente. 

HACIENDO MUSICA CON PLAY 

Hemos asegurado anteriormente que 
utilizar el macrolenguaje musical era ex- 
tremadamente sencillo y es más, con 
unos conocimientos musicales muy ru- 
dimentarios es posible obtener resulta- 
dos sorprendentes. Antes de entrar en 



unas 



materia con PLAY, vamos a dar unos 
pequeños rudimentos de teoría musical 
para que cualquier lector que desea pro- 
gramar una melodía de cuya partitura 
disponga pueda realizar una adaptación 
musical. 

Los cuadros A y B ilustran la notación 
habitual que se utiliza en música y su 
equivalencia en comandos de PLAY. 

CUADRO A 



IT. 



ben saber qué nota es la que han de uti- 
lizar. El MML (Music Macro Language) 
soluciona este problema muy sencilla- 
mente. La notación musical inglesa utili- 
za letras del alfabeto para denominar las 
notas musicales de la siguiente manera: 
Notación habitual: DO RE MI FA SOL 
LA SI 

Notación Inglesa: C D E F G A B 



DUBACIGNDE 
LáS IOTAS 



o 



Redonda 
(4 tiempos) 
L1 



jan j(»d mnu 



Blanca 
(2 tiempos) 
L 2 



Negra 
(1 tiempo) 



Corcheas 
1/2 tiempo) 
L8 



(1/4 tiempo) 
semicorcheas 
L16 




(1/8 tiempo) 
Fusas 
L32 



Semifusas 
(1/16 tiempo) 
L64 



Tresillos de corchea 
(1/3 tiempo) 
L9 



CUADRO B 



DURACION DE 
LOS SILENCIOS 



(2 tiempos) 
R2 



(1/2 tiempo) 
R8 



(1/8 tiempo) 
R32 



(4 tiempos) 
R1 



(1 tiempo) 
R4 



(1/4 tiempo) 
R16 



(1/16 tiempo) 
R64 



Pero aquellos lectores que no saben 
música, no tienen suficiente con esto 
para transcribir una partitura. Además 
de saber la duración de cada nota, de- 



Pero claro, de poco sirve esto cuando 
uno se enfrenta con una partitura llena 
de extraños símbolos sobre un penta- 
grama. Para solucionar esto en alguna 
medida, vamos a facilitar la pequeña ta- 
bla «C» para las equivalencias en el 
pentagrama. 

Habrán visto nuestros sagaces lecto- 
res que hemos introducido un concepto 
nuevo: «O»; que significa octava. El 
MML permite trabajar con un máximo de 
8 octavas numeradas de la 1 a la 8. La 
octava determina el que un sonido sea 
agudo o grave. Como se puede ver en la 
figura anterior, cada octava comienza 
en Do (C) y termina en Si (B). También 
puede apreciarse en el gráfico citado 
que la sucesión de las notas es correlati- 
va en el pentagrama tanto para la clave 
de Sol como para la de Fa. Hemos in- 
cluido la especificación de las notas en 
las dos claves, porque normalmente las 
partituras de piano trabajan con ambas; 
la clave de Fa para la mano izquierda 
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Clave de Sol 




jCPEFGAB, ,CPEFGAB| |CPE 



Octava media (04) 



06 



Clave de Fa 



p 



CDEFGABC 



02 



03 



04 



TABLA C 




OW«BTYUIOP¡', n 

X X ti v m N M ', fj i»t IJ 



(notas más graves) y la clave de Sol 
para la mano derecha (notas más agu- 
das). Aún debe saber un par de cosillas 
más nuestro intrépido usuario del MML. 



Es frecuente encontrarse unos puntos 
(.) llamados puntillos en las partituras. 
Estos indican que la nota a la que siguen 
debe alargarse en la mitad de su valor; y 



en el macrolenguaje de los MSX se re- 
presentan de la misma manera: Por 
ejemplo: 



m 



Sería 05L8C. L16D o bien 05C8. 
D16 



sería 05L4C 

También se encontrará con otros cu- 
riosos símbolos como # (sostenido) 
que indica que la nota en cuestión debe 
subir medio tono, o (bemol), que indi- 
ca que debe bajarse medio tono. En 
MML, los sostenidos se representan con 
# o bien con + y los bemoles con -. 

También es frecuente que los sosteni- 
dos o bemoles aparezcan al principio de 
la partitura al lado de la clave. Esto, en 
términos musicales se denomina «ar- 
madura» (es lo que sirve para definir las 
tonalidades mayores o menores) e indi- 
ca que todas las notas que estén en el 
mismo renglón que él o los sostenidos o 
bemoles deben subirse o bajarse medio 
tono (según haya un sostenido o bemol) 
y esto vale para todas las notas que 
ocupen esas posiciones en la partitu- 
ra en cualquier octava excepto para 
aquellas que vayan precedidas del sím- 
bolo (becuadro) que anula la altera- 
ción. Por ejemplo: 




Sería: D4 F 8 E8 05 C 4D4 



Sería: F4 B-4 05 C 04 B4 

Tal vez haya mucho material junto en 
este artículo para aquellos que no po- 
seen nociones musicales, pero estamos 
convencidos de que si siguen esta pe- 
queña serie, pronto serán capaces de 
realizar adaptaciones que van a sor- 
prenderles. Para que se hagan una idea 
de lo que podrán hacer, aquí van un par 
de líneas junto con la partitura de donde 
están extractadas para que puedan 
comprobar prácticamente algunas de 
las cosas que decimos. ¡Hasta el mes 
que viene! 

10 PLAY "L16 E D#E F#G F#G E 
A8 A8 F#4 G8. F#16 E8 E8 F# 
.F#16 D#8 D#8 E8 E16E16C16 
C16 C16 C16 03 A4 B4 04 E2 




Bggpii ¡¡¡mu 
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2.° GRAN 



PROGRAMA 



CONCURSO 



DEL AÑO 



CREA Y ENVIANOS TU PROGRAMA. HAY* PREMIOS PARA TI Y PARA LOS QUE 
TE VOTEN. CADA MES PUBLICAREMOS A MAS DE UN GANADOR QUE OPTARA 
POR EL «LISTADO DE ORO» T UNA FABULOSA UNIDAD DE DISCO. 




BASES 



1— Podrán participar todos nuestros 
lectores cualquiera sea su edad, con 
uno o mas programas. 

2- Los programas se clasificarán en 
tres categorías: 

A- Educativos 

B- Gestión 

C- Entretenimientos 

3— Los programas, sin excepción, debe- 
rán ser remitidos grabados en cas- 
sette virgen, debidamente protegida 
dentro de su estuche plástico en el 
que se insertará el cupón-etiqueta 
que aparece en esta misma página, 
debidamente rellenado. 

4— No entrarán en concurso aquellos 
programas plagiados o ya publicados 
en otras publicaciones nacionales o 
extranjeras. 

5- Junto a los programas se incluirán 
en hoja aparte las instrucciones co- 
rrespondientes, detalle de las varia- 
bles, ampliaciones o mejoras posi- 
bles y todos aquellos comentarios 
que el autor considere de interés. 

6- Todos los programas han de estar es- 
tructurados de modo claro, separan- 



do con REM los 
del mismo. 



PREMIOS 



7- SUPER JUEGOS EXTRA MSX otorga- 
rá los siguientes premios: 

AL PROGRAMA EXTRA MSX DEL 
AÑO 

«EL LISTADO DE ORO» 
Una Unidad de disco 
valorada en más de 80.000 ptas. 

8- Los programas seleccionados por 
nuestro Departamento de Programa- 
ción y publicados en cada número de 
nuestra revista recibirán los si- 
guientes premios en metálico: 

Programa Educativo 10.000 pts. 
Programa de Gestión 10.000 pts. 
Programa de Entretenimiento 
6.000 pts. 

9- SUPER JUEGOS EXTRA MSX se re- 
serva el derecho de publicar fuera de 
concurso aquellos programas de re- 
ducidas dimensiones que sean de in- 
terés, premiando a sus autores. 

FALLO Y JURADO 

10- Nuestro Departamento de Progra- 



mación analizará todos los progra- 
mas recibidos y hará la primera se- 
lección, de la que saldrán los progra- 
mas que publiquemos en cada núme- 
ro de S.J. EXTRA MSX. 

11— Los programas recibidos no se devol- 
verán, salvo que el autor lo requiera 
expresamente. 

12— La elección del PROGRAMA MSX EX- 
TRA DEL AÑO se hará por votación 
de nuestros lectores a través de un 
boletín que se publicará en el mes de 
octubre de 1986. 

13— El plazo de entrega de los programas 
finaliza el 14 de noviembre de 1986. 

1 3- El fallo se dará a conocer en el núme- 
ro del mes de enero de 1987, entre- 
gándose los premios el mismo mes. 



REMITIRA: 
CONCURSO EXTRA 
MSX 

Roca i Batlle, 10-12 
bajos 

08023 Barcelona 
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Este programa contiene un test que te permite conocer tu capacidad de adaptación al mundo moderno. 
Con sólo responder SI o NO al inteligente cuestionario sabrás qué posibilidades tienes para asumir y 

superar las duras condiciones de la sociedad actual. 



3 ' AUTOR : MANUEL CARRERA RIBERA 
5 'PRESENTACION 
10 CLS:CLEAR90:0PEN"GRP¡ "AS#1 
20 SCREEN2 

30 L I NE < O , 55 ) - C 256 , 93 > ,T , BF 

40 PRESETC 100,60) , 1 :PRINT#1 , "-TES 

T-" 

50 PRESETC 20, 70) , 1 :PRINT#1 , "¿Está 
Vd. adaptado al mundo moder 
no?" 

60 PLA Y" T235V 1 OA . C . A#F+B3A2S3M700 
Al 5B2CEF#A1 O" , "VI 2D+E3 . S2M500A20C 
23F+" i "VI 1 S406ACC1 0BR8S3M1 300BR4E 
1SD3" 

70 FCRT=0T02000:NEXTT 

75 ' INICIALIZACION PANTALLA 

30 CLS : U» I DTH29 ! COLOR 15,4,4: KEYOFF 

: SCREEN 1 

90 PRINT"La adaptación es la a ce i 
ón por la cual un ser se ajusta 

a 1 rned i o en que vive, c on c i - lia 
ndo sus propias tendenc iascon las 

exigencias que le im-pone ese me 
dio. " 

100 PRINT"E1 mundo moderno es el 
ejern- pío por antonomasia de rned i 
o exigente del que nadie puede es 
capar . " 

110 PRINT" ¿Está Vd. verdaderament 
e adaptado a la vida moderna?. El 
cuestionario que sigue le ayuda 
rá quizá a tomar concienciade su 
actitud profunda de ca-ra a esta 
cuestión: Acepto (o No 3 mi época 

120 PRINT" Responda rápidamente co 
n un SI o un NO , en este examen d 
e conc i ene ia, el primer impulso es 

el bueno . " 
130 PRINT"PULSA UNA TECLA..." 
140 T$=INKEY$ : IFT*=" "THEN 140 
1 50 I FT*=CHR$ í. 32 ) THEN 1 70 
155 « INICIO VARIABLES 
1 60 N$=" " : A*=" " : A=o : B=o : C=0 : D=o : E 
=0 : F=o 

165 'INTRODUCCION NOMBRE 

170 CLS ¡ LOCATE , 1 2 ! PR I NT" C No más d 



— 



e 25 carác teres ) " ! INPUT" INTRODUCE 
TU NOMBRE" ;N$ 

175 'PROGRAMA PRINCIPAL 

1 80 CLS : LOCATE 1 , 1 ¡ I NPUT " -El r i tm 
o de la vida moderna es bastante 

inhumano" ; A$ 

190 IFA*="SI"THENA=A+1 
200 I FA* < > " S I " ANDA* < > " NO " THEN 1 SO 
21 CLS : LOCATE 1 , 1 ¡ INPUT" Apenas m 
e apetece tomar el avión" ; A* 
220 IFA*="SI"THENA=A+1 
230 I FA*< > "SI" ANDA*< > " NO" THEN2 1 
240 CLS : LOCATE, 1 ¡ INPUT "Todas las 
noches sigo el pro-grama de tele 
visión" ;.A* 

250 IFA*="SI"THENC=C+1 

260 I FA*< > "SI" ANDA* < > " NO" THEN240 

270 CLS : LOCATE ,10: INPUT" Compro a 

crédito siempre que es posible"; A 

* 

2S0 I FA*=" S I " THENC=C+ 1 

290 I FA*< > " S I " ANDA*< > " NO " THEN270 

300 CLS : LOCATE ,10:1 NPUT " P i enso qu 

e los tejidos sinté-ti eos y los t 

radie ionales tienen cada uno sus 

ventajas,*/ yo me visto con unos 

u otros"; A* 

3 1 I FA*=" S I " THENB-B+ 1 

320 I F A* < > " S I " ANDA* < > " NO " THEN 3 00 

330 CLS : LOCATE , 1 ! I NPUT " So lo el m 

árido debe decidir los gastos im 

portantes" ; A* 

340 I FA*=" S I " THENA=A-i" I 

350 I FA*< > " S I " ANDA$< > " NO" THEN330 

360 CLS : LOCATE ., 1 : INPUT" Hago mis 

pagos con cheques" ;A$ 

370 IFA$="SI"THENB=B+1 

380 I F A* < > " S I " ANDA* < > " NO " THEN360 

390 CLS : LOCATE ,10: INPUT" He hecho 

dos seguros, además de los obliga 

tor ios" ; A* 

400 IFA*="SI"THENB=B+1 
410 I F A* < > " S I " AMD A* < > " NO " THEN390 
420 CLS : LOCATE , 1 ! INPUT" El «autos 
ervicio:*- es el úni corestaurante e 
n el que el ser-vicio es racional 

" : A* 



m m i > v m m m m m 1 



430 I F A*=" S I " THENC=C+ 1 
440 IFA*< > " S I " ANDA* < > " Mü" THEN420 
450 CLS : LOCATE , I O ! INPUT"He hecho 
más de dos seguros además de los 

ob 1 i ga tor i os " J A* 
460 I FA*=" S I " THENC=C+ 1 
470 I FA* < > " S I " ANDA* < > " NO" THEN450 
480 CLS ; LOCATE ,10: INPUT"Para los 
pagos, la cuenta de crédito es el 

m e d i o m á s c ó m o -do" ; A * 
490 IFA*="SI"THENC=C+1 
500 I F A* < > " S I " ANDA* < > " NO" THEN480 
510 CLS : LOCATE ,10: INPUT"Pref iero 
los tejidos sintéti-cos y los el i 
jo tan a menudo- como puedo" .: A* 
520 IFA*="SI"THENC=C+1 
530 IFA*<>"SI"ANDA*<>"N0"THEN51 
540 CLS : LOCATE ,10:1 NPUT " E 1 mar i do 

y la mujer deben decidir en comú 
n en todo lo queconcierne a los g 
asios impor-tantes de la casa"; A* 
550 IFA*="SI"THENB=B+1 
560 I F A* < > " S I " AND A* < > " NO " THEN540 
570 CLS:L0CATE, 10: INPUT"E1 aviin 
se utilizará pronto, incluso para 
pequeños trayec-tos" J A* 
580 IFA*="SI"THENC=C+1 
590 I FA*< > " S I " ANDA*< > " NO " THEN570 
600 CLS : LOCATE , 1 : I NPUT" El coche 
no es más que un me-dio de transp 
or te c ¿modo" ; A* 
610 IFA*="SI"THENB=B+1 
620 CLS ¡ LOCATE ,10: I NPUT "Deseo que 

la vida vaya cada vez más depri 
sa";A* 

630 IFA*="SI"THENC=C+1 
640 I F A* < > " S I " ANDA* < > " NO" THEN620 
650 CLS : LOCATE ,10: I NPUT "-No quier 
o t e 1 e v i s i ó n en mi casa" ; A* 
660 IFA*="SI"THENA-A+1 
670 I F A* < > "SI" AND A* < > " NO " THEN650 
680 CLS: LOCATE, 10: INPUT"No soport 
o los tejidos sinté-ticos y me vi 
sto perf ec tamen-te con tejidos tr 
adic ionales" ; A* 
690 I FA*= " S I " THENA= A + 1 
700 I F A*< > " S I " ANDA* < > " NO" THEN6S0 
710 CLS : LOCATE , 1 : I NPUT "Es prefer- 
ible que el marido y la mujer disp- 
ongan de presu- puesto separado" ; 
A* 

720 IFA*="SI"THENC=C+1 
730 I F A*< > " S I " ANDA* < > " NO " THEN7 1 
740 CLS : LOCATE ,10: INPUT"Pref iero 
pagar al contado to-das mis compr 
as" ; A* 




750 
760 
770 
iza 
780 
790 
S00 



IFA*="SI"THENA=A+1 
I FA*< > "SI" ANDA*< > " NO" THEM740 
CLS : LOCATE , 1 ! INPUT"Me horror 
c orne r en un au tose r v i c i o " ; A* 
IFA*=="SI"THENA=A+1 
I FA*< > " S I " ANDA*< > " NO " THEN770 
CLS : LOCATE ,10:1 NPUT" Hay qu i en 
intenta a d a p t a r s e a 1 r i t m o d e rí 
ues t r o s i g I o " ; A * 
8 1 I FA*=" S I " THENB-B+ 1 
820 I FA* < > " S I " ANDA* < > " NO " TMEN800 
830 CLS : LOCATE ,10:1 NPUT" El av i *n 
sólo es verdaderamente útil para 
viajes lar gos " ; A* 
840 I FA*=" S I " THENB=B+ 1 
850 I FA* < > " S I " AND A* < > " NO " THEN830 
860 CLS : LOCATE , 1 : I NPUT "No puedo 
prese i nd i r de 1 c o c he " j A* 
370 I FA*=" S I " THENC=C+ 1 
880 I FA*< > " S I " ANDA*< > " NO " THEN860 
890 CLS : LOCATE , 1 ! I NPUT " Veo la te 
1 e v i s i o n dos veces po r semana " ; A 
* 

I FA*=" S I " THENB=B+ 1 
I FA*< > " S I " ANDA*< > " NO" THEN890 
CLS : LOCATE , 1 ¡ I NPUT " S | lo útil 
la compra a cré~dito para gas 
importantes" J A* 
I FA*-" S I " THENB-B+ 1 
I F A* < > " S I " ANDA* < > " NO " THEN920 
CLS ! LOCATE ,10: I NPUT "Pref iero 
pagar en especie"; A* 
960 IFA*="SI"THENA=A+1 
970 I FA* < > " S I " ANDA* < > " NO" THEN950 
980 CLS : LOCATE , I ! I NPUT "Me conten 
t o c on 1 os segu r os ob 1 i ga t o r i os " 
; A* 

990 IFA*="SI"THENA=A+1 
1 000 I F A* < > " S I " ANDA* < > " NO " THEN980 
1010 CLS : LOCATE , 1 ! I NPUT" Corno en 
un autoservicio cuan-do 4 tengo pri 
sa" ; A* 

1020 IFA*="SI"THENB=B+1 

1 030 I FA* < > " S-I " ANDA* < > " NO " THEN 1 1 



1040 CLSILOCATE, 10: INPUT"E1 coche 
es un juguete dema- siado peligr 
oso, pref iero el tren"; A* 
1050 IFA*="SI"THENA=A+1 
1 060 I FA*< > " S I " ANDA*< > " NO" THEN 1 04 


1 070 CLS ! LOCATE ,10: INPUT"Para los 
alimentos, los enva-ses de carto 
n o de materia plástica son cóm 
odos , a veces" ; A* 
1 080 I FA*= " S I " THENE=E+ 1 



900 
9 1 
920 
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— 



1 090 I F A* < > " S I " AND A* < > " NG " THEN 1 07 



1 1 00 CLS : LOCATE ,10: INPUT"La organ 
izacion de ayuda a los países e 
n vías de desarrollo es el primer 
deber de lasgrandes naciones" ; A* 
1110 IFA*="SI"THEN E=E+1 
1 120 IFA*O"SI"ANDA*<>"N0"THENl JO 


1 1 30 CLS : LOCATE , 1 I I NPUT" Apenas c 

reo en la medicina moderna" ; A* 

1140 IFA*="SI"THEND=D+1 

1 150 IFA*<>"SI"ANDA*O"N0"THENl 13 



1 1 60 CLS : LOCATE ,10:1 NPUT" En pr i nc 

ipio, estoy a favor délos trasplan 

tes cardiacos , pe-ro me parecen pr 

ematuros hoy" ] A* 

1 170 IFA*="SI"THENE=E+1 

1 ISO IFA*O"SI"ANDA*O"N0"THENl 16 



I 1 90 CLS : LOCATE ,10:1 NPUT" -Para e 1 
homb r e , e 1 des c ub r i - m i en to de Lá 
s c aux o de Al t arn ira es ., ref 1 ex i ona 
n d o , m á s i m p o r t ante q u e e 1 é x i t o d 
e 1 autom ¿vil"; A* 
1 20Ó I FA*="S I " THEND=D+ 1 
1210 IFA*<>"SI"ANDA*O"N0"THENl 19 


1 220 CLS : LOCATE ,10: INPUT"Las pi Id 
oras anticonceptivas deberían ten 
er una venta li- bre, para que to 
das las mu je-res pudieran usaríais 
" ; A* 

1 230 IFA*="SI"THENF=F+I 

1240 I FA$< > " S I " ANDA*< > "NO" THEN 1 22 



1 250 CLS : LOCATE ,10: I NPUT" Los enva 
ses de cartón mate-ria plástica 
perjudican el sabor de los alime 
ntos" ; A* 

1260 IFA*="SI"THEND=D+1 

1 270 I FA*< > " S I " ANDA* < > " NO " THEN 1 25 



1280 CLS ¡LOCATE, 10: I NPUT" Si se pu 
diera, me gustaría vi-vir en los t 
iempos pasados , enlos que el ritmo 

de vida era más tranqui lo" ; A* 
1290 IFA*="SI"THEND=D+1 
1 300 I F A* < > "SI" ANDA* < > " NO " THEN 1 28 


1310 CLS ¡LOCATE, 10: INPUT "El desai- 
ro!, lo de la astronáu-tica es más 
importante que el des cubrí miento d 
e los manus- critos del Mar Muert 





1320" IFA*="SI"THENF=F+1 

1 330 I FA*< > "S I " ANDA* < > " NO" THEN 1 3 1 



1 340 CLS : LOCATE ,10: INPUT "Soy f el i 

z por vivir en el si— gl o XX" ; A* 

1 350 I FA*=" 3 I " THENE=E+ 1 

1 360 I FA*< > " S I " ANDA*< > " NO" THEN 1 34 



1 370 CLS : LOCATE , 1 ! I NPUT" Las p i 1 

doras ant i concept i vasson contrari 

as a la moral y, lo que es más gr 

ave, a la fi- siología";A* 

1 3S0 I FA*= " S I " THEND=D+ 1 

I 390 I FA*< > " S I " ANDA*< > " NO" THEN 1 37 



1 400 CLS ¡ LOCATE ,10: INPUT"Las pilé 
oras anticonceptivas deben ser co 
ns i de radas como un medicamento ú 
til, que se debe usar con pruden 
cia" ; A* 

I 4 I I FA*=" S I " THENE=E+ 1 

1 420 IFA*<>"SI"ANDA*<>"N0"THEN1 40 



1 430 CLS : LOCATE ,10:1 NPUT " P r e f i e r o 
saber la opinión de varios espec 
i a 1 i s tas , c u a n d o a l g o n o m are h a b 
i en" ; A* 

1 440 I FA*=" S I " THENF=F+ 1 

("THEN 143 



1450 IFA*<>"SI"ANDAí 

1 460 CLS : LOCATE , 1 ¡ I NPUT "La v i da 
urbana intoxica el cuerpo y el 
esp ir i tu ; hay que i r a v i v ir al c a 
mpo" ; A* 

1 470 I FA*== " S I " THEND=D+ "I 

1 480 I FA* < > " S I " ANDA* < > " NO " THEN 1 46 

(I) 

1 490 CLS : LOCATE , 1 ! INPUT"E1 progr 

eso técnico a mejora do sensiblem 

ente el nivel de vida gene ral, per 

hay que desconfiar de su influe- 
ncia de~f ormante" j A* 

1 500 I FA*=" S I " THENE—E-+- 1 

1 510 IFA*O"SI' J ANDA*<>"N0"THENl 49 


1 520 CLS : LOCATE , 1 ! INPUT "Hay que 

dejar al niño mucha libertad par 

a que su carác terse desarrolle ar 

m ó n i c amen te " ; A* 

1 530 I FA*=" S I " THENF=F+ 1 

1 540 I FA*< > " S I " ANDA*< > " NO" THEN 1 52 



1 550 CLS ! LOCATE , 1 ! I NPUT" E 1 desar 
rollo técnico actual mata la vida 

del espíritu" ; A* 
1560 IFA*="SI"THEND=Di-l 



.f. y:- .1.; 




1 570 I FA*<> "Sí" ANDA*< > " NO" THEN 1 55 



O 

1 580 CLS : LOCATE ,10: INPUT" Tengo má 

s confianza en núes- tro médico d 

e cabecera que en la opinión de lo 

s espec ial is— tas" J A* 

1590 IFA*="SI"THENE=E-H 

1 600 I FA* < > " S I " ANDA* < > " NO " THEN 1 53 



1 6 1 CLS - : LOCATE , 1 ! I NPUT " ¿ Pod ría 

Vd . c i ta r ano r a m i smo t r es«s 1 ogans 

:*• de detergentes" ; A* 

1 620 I FA*=" S I " THENF=F+ 1 

1 630 I F A* < > " S I " ANDA* < > " NO " THEN 1 6 1 



1 640 CLS : LOCATE , I ¡ I NPUT" El viaje 
a la Luna es una ha-zaña que cue 
sta muy cara y que no nos ha en 
senñado muchoque no supiéramos ya 
" ; A* 

1 650 I FA*=" S I " THEND»D+ 1 

1 660 I FA*< > " S I " ANDA*< > " NO" THEN I 64 



1 670 CLS : LOCATE .. 1 ,¡ I NPUT " El p r o'f e 

sor B a r n a r d .. c o n e l p r i m e r t r ¿* s p 

1 a n t e de c o r a z o n , h a a b i e r t o u n n u 

evo capitulo de í a med i c i na " \ A* 

1 6S0 I F A*=" S I " TI lENF^F -i- 1 

I 630 I FA*< > " S I " ANDA*< > " NO" THEN 1 67 



1 700 CLS : LOCATE ¿'-1 J I NPUT " Los n i fío 
s tienen necesidad deser sometido 
s , en todo , a una estríe ta di.SC ip 1 
i na" ; A* 

1 7 1 I FA*=" S I " THEND-D+ I 

1 720 IFh$<>"SI " ANDA*O"N0"THEN170 



I 730 CLS : LOCATE ,10:1 NPUT "Vivir en 
la ciudad es a g r a da - b le a c o n d i c 
ion de pasar los fines de semana 
en el campo" J A* 
í 740 I F A*=" S I " THENE=E+ 1 
1 750 IFA*<>"Sl"ANDA$O"N0"THEN I 73 



1760 CLS ¡LOCATE, 10: INPUT" No me en 

c u e n t r o v e r d a d e r a m e n - 1 e b i e n m á s 

que en la ciudad"; A* 

1 770 IFA*=="SI"THENF==F+T 

17S0 IFA*<>"SI"ANDA*<>"NQ"THEN1 76 



1790 CLS : LOCATE ,10: INPUT" ¿Sabe V 
d. de memoria tres «'slogans» de 

detergentes" ; A* 
1 800 IFA*="SI"THENE=E+ 1 
I 8 10 I F A* < > " S I " ANDA* < > " NO " THEN 1 79 




on.c ooi'foc 











1 820 CLS : LOCATE , 1 ! INPUT"Nuestra 
felicidad futura reside en las me 
joras técnicas, cada vez más num 
e rosas" J A* 

1 830 I FA*= " S I " THENF=F-i 1 

1 340 IFA*O"SI"ANDA*O"N0"THENl 82 



1 850 CLS : LOCATE ,10:1 NPUT " Segu i c o 

n curi os i dad , en 1 a te levision, 1 a 

retransmisión de los primeros pas 

os del hombreen la Luna" J A* 

1 860 I FA*=" SI " THENE=E+ 1 

1 870 I F A* < > " S I " ANDA* < > " NO " THEN 1 85 



1 880 CLS : LOCATE , 1 ! INPUT" La ida y 
vuelta Ti erra -Luna es una avent- 
ura apasionante en la que quise 
par tic i par , siguiendo la emisión e 
n di rec toa las 4 de la mañana por 

te- levision") A* 
1890 IFA*="SI"THENF=F+1 
1 900 I FA*< > " S I " ANDA*< > " NO" THEN 1 88 


1 910 CLS ! LOCATE , 1 ! INPUT" El tras 

plante de cor azón , mu-cho ruido y 

pocas nueces"; A* 

1920 IFA*="SI"THEND=D+1 

1 930 I F A* < > " S I " ANDA* < > " NO " THEN 1 9 1 



1940 CLS ¡LOCATE, 10: INPUT "En mi op 
inion, la edad de oro está por des 
c ub r i r en 1 os s i - g 1 os f u tur os , que 
se beneficiarán de los progresos 
déla c i v i l i za c i ó n " ; A* 
1 350 I FA*=" S I " THENF-"-F i - 1 
1 960 I FA*< > " S I " ANDA* < > " NO" THEN 1 94 


1965 ' SUMA VARIABLES , Y BIFURCACI0 
N SEGUN VALOR 
1 970 Z=A -t-D : Y=B+E ¡ H=Ch F 
1930 IF Z=20 AND Y==20 AND H<«20 T 
HEN 2170 ELSE IF Y=20 AND H=20 AN 
D ZO20 THEN 2170 ELSE IF H-20 AN 
D Z«20 AND Y<=20 THEN 2170 
1990 IF Z>Y AND Z>H THEN G0SUB 20 
10 ELSE IF Y>Z AND Y>H THEN G0SUB 
2060 ELSE IF H>Z AND H>Y THEN G0 
SUB 2110 
2000 END 

20 1 CLS : PR I NT " Vd . " J N* ! PR I NT " D i f i 
cuitad o rechazo , consc iente o inc 
onsc i ente , ante la vi -da moderna." 

» 

2020 PRINT"Es cierto que Vd . expe 
r i menta d i f i cu 1 tades de adaptac i 
on.Las grandes tendencias de núes 



w i isUURTu b u 



t ro siglo, la ve 1 oc i dad , 1 a téc n i c a 
, e 1 c onfor t , 1 a mee an izaci¿n,etc . 
# no van con su temperamento."; 
2030 PRINT"Vd. súeñacon un rincón 

tranquilo, en u na vida más sene i 

lia y sosegada, en una época ya pa 
sada.Da la espalda a lo que es ve 
rda-der amenté actual . " ; 
2040 PRINT"Esto tiene que plante 
arle problemas en su existencia 
p r o f es i ona í y f am i 1 i a r . Es f ué r c es 
e en luchar contra esa tendencia, a 

fin deno convertirse en el Alces 
tesde su siglo." 
2050 END 

2060 CLS : PRINT"Vd. " j N* : PRINT" Adap 
tac ion a la vida moderna acompaña 
da de alternativa y di se ern i mi en 
to . " j 

2070 PRINT "Sabe conjugar armónica 
mente los inconvenientes y las ve 
ntajas de nuestraépoca , que Vd.ace 
pta,pero da muestras de tacto y 
di se ern i -miento . " ; 

2080 PRINT"Utiliza los progresos 
de la técnica, pero no profésalas 
ideas modernas más que en la medid 
a en que le parecen razonables. " 
2090 PRIMT"-Sin ilusiones en cuant 
o a lasexage rae iones y los snob i s 

mosde la vida moderna , los sopor t 

a sin ap r op i á r se 1 os ; Vd . v i enea se r 

el Filinto de su siglo." 
2100 END 

21 10 CLS:PRIN7"Vd. " ; N$ : PRINT ' ; Supe 
r adap tac L6 n de qu i en v i ve c orno en 
s i mb i os i s c on su épo- c a ; " ; 
2 120 PRINT"Vd.se desliza en la vi 
da moderna como pez en el agua. 



— 











Está m u y a I c o r r i e n t e d e la a c t u 
a 1 i d a d y en su en t u s i a s m o t i en e t e 
ndencia a hacer suyas todas las no 

vedades de la é poca."; 

2130 PRINT"Su adaptación a la vid 



duda , exc e 1 en tepe 



a moderna 

ro es una h i per adap tac i ón que se 
produce en detrimento de la riqu 
eza interior y de la personal ida 
d profunda. " ; 

2140 PRINT "La verdadera adaptad 
6 n, la f f u c - 1 i f e r a , v a a c o m p a ñ a d a •:! 
e un esfuerzo que en Vd. casi no e 
xiste. Luche contra esa terrdencian 
o sea que se convierta en elTriss 
otin de su época." 
2150 END 

2 1 70 CLS : PR I NT" Vd . " J N$ ! PR I NT" Es e 
n conju n t o , o t r a f o r m a v á - 1 i d a d e 
a d a p t a c i ó n a. la vida tú o derna. A c e p 
ta c i e r tas tenden c i as de su s i g I o 

y rechaza o --tras. Esto demuestra 
en Vd.un temperamento de una piez 
a." 

2180 PRINT" Intente redi jeir las co 
n t r a d i c c i o n e s q u e su a c t i tu d e n t r 
a ña i n de f e c t i ta I e m e n t e , y f ó r m e s e u 
na idea m á s m a t i z a d a d e .1 a s d i f e r 
e n t e s t e ndencias d e 1 a v i d a m o d e 
r n a que,sin d u d a , ri o m e r e c e n e 1 e x 
agerado honor o indignidad que Vd 
. les atr i bu -ye . " ; 

2190 PRINT"Quizá, llegado al térmi 
no de este pequeño examen de con 
c i ene i a , tenga Vd . una i dea másprec 
isa de su grado de adaptación a 1 
a vida moderna. " 
2200 END 




TEST DE LISTADO 



10 
20 
30 
40 
50 
60 
70 
75 
80 



- 58 

- 58 
-238 
-21 6 
-185 

- 70 
~ 35 
-108 
-179 

- 58 

- 62 



90 
1 00 
i 1 
120 
1 30 
140 
1 50 
155 
1 60 
1 65 
1 70 



- 78 
~ 27 
-235 

- 16 

- 49 

- 55 
-121 

- 58 
-104 

- 58 
-234 



175 
180 
"I 90 
200 
21 
220 
230 
240 
250 
260 
270 



58 
93 
13 
1 00 

13 
1 30 
1 55 

1 7 
1 60 
1 19 



280 
290 
300 
310 
320 
330 
340 
350 
360 
370 
380 



- 17 
-191 
-164 

- 15 
-221 
-175 

- 13 
-251 
-169 

- 15 

- 25 



390 
400 
410 
420 
430 
440 
450 
460 
470 
480 
490 



-150 

- 15 

- 55 
-217 

- 17 
~ 85 
-179 

- 17 
-115 
-230 

- 17 



500 
510 
520 
530 
540 
550 
560 
570 
580 
590 
600 



-145 
-117 

- 17 
-175 
-218 

- 15 
-206 
-166 

- 17 
-236 
-185 



610 

620 
630 
640 
650 
660 
670 
680 
690 
700 
710 



- 15 

- 60 

- 17 

- 30 
-206 

- 13 

- 60 
-223 

- 13 

- 90 

- 73 




JDQi~íQC 
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720 


- 17 


940 


- 75 


1 160 


- 2 


1 380 


~ 19 


1 600 


-226 


1 820 


-245 


2030 


-200 


730 


- 1 20 


950 


- 1 45 


1 170 


- 21 


1 390 


15 


1 6 1 


- 1 20 


1 830 


- 23 


2040 


- 16 


740 


- 27 


960 


- 13 


1 1 80 


~ 60 


1 400 


-106 


1 620 


- 23 


1 840 


-21 1 


2050 


-1 29 


750 


- 13 


970 


- 1 05 


1 190 


-167 


1410 


- 21 


1 630 


- 


1 850 


- 1 92 


2060 


-143 


760 


-150 


930 


- 39 


1 200 


- 19 


1 420 


- 45 


1 640 


-249 


1 860 


- '21 


2070 


- 50 


770 


- 20 


990 


- 13 


1210 


- 90 


1 430 


-213 


1 650 


- 19 


1 870 


-241 


2030 


-1 88 


780 


- 13 


1 000 


-135 


1220 


-128 


1 440 


- 23 


1 660 


~ 30 


1 880 


-1 56 


2090 


- 62 


790 


-181 


1010 


-221 


1 230 


- 23 


1 450 


- 75 


1 670 


-202 


1890 


— 23 


2 1 00 


-129 


300 


- 1 1 6 


1 020 


- 15 


1 240 


- 1 20 


I 460 


- 41 


1 680 


- 23 


1 900 


- 1 5 


21 1 


-144 


310 


- 15 


1 030 


-165 


1 250 


- 62 


1 470 


- 19 


1 690 


60 


1910 


- 42 


2120 


-179 


320 


-179 


1 040 


• 1 86 


1 260 


- 19 


1 480 


-105 


1 700 


- 54 


1 920 


- 19 


21 30 


-1 49 


830 


-195 


1 050 


- 13 


1270 


-150 


1 490 


-242 


1710 


... 19 


1 930 


- 45 


2 1 40 


-119 


840 


- 15 


1 060 


-196 


1 280 


-175 


1 500 


- 21 


1 720 


- 90 


1 940 


- 21 


2150 


-129 


850 


-241 


1 070 


- 27 


1 290 


- 19 


1 5 1 


-1 35 


1 730 


-202 


1 950 




2170 


-128 


360 


-221 


1 080 


- 21 


1 300 


-176 


1 520 


- 14 


1740 




1 960 


- 75 


2180 


-254 


870 


- 1 7 


1 090 




1310 


-242 


1 530 


- 23 


1 750 


-120 


1 965 


- 58 


2190 


- 31 


330 


- 15 


1 1 00 


-25 1 


1 320 


- 23 


1 540 


-165 


1 760 


- 98 


1 970 


- 1 64 


2200 


-129 


390 


- 39 


1110 




1 330 


-21 1 


1 550 


-243 


1 770 


~ 23 


1 980 


-188 






300 


- 15 


1 1 20 


- 


1 340 


- 14 


1 560 


- 19 


1 780 


-150 


1 990 


- 33 






910 


- 45 


1 130 


~ 90 


1 350 


- 21 


1 570 


-196 


1 790 


-204 


2000 


-129 






920 


- 72 


1 1 40 


- 19 


1 360 


-241 


1 580 


- 36 


1 800 




20 1 


- 47 


total: 


330 


- 15 


1 1 50 


- 30 


1 370 


-134 


1 590 


- 21 


1810 


-180 


2020 


- 92 


221 


36 



- 
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KARATE 




Por Darío García 

Bob, el karateka debe llegar al tatami y desactivar las bombas y trampas colocadas en todas 
' v ^ * 1 el mismo programr " • 



clones. 



10 REM KARATE KNIGH 
20 REM Por Darío García 
30 REM Para MSX EXTRA 

40 ON STRIG GOSUB 2190.2190.2190,2190,21 
90 ."COLOR, 1 . 1 

50 C$="c8u3015u51 10u7r80d71 10d515d3015u3 
0140d3015" 

60 SCREEN 2.2:0PEN "grp:"AS#l 
70 PRESETC70,">503 :COLOR 10:PRINT#1, "KARAT 
E-NIGHT" :COLOR 8 :PRESETC50, 80 3 :PRINT#1. " 
Espere un momento .." :|_ INE C80, 1703-C 150. 
1553.2,B:PRESETC97. 1603 :COLOR 10:PRINTttl 
. "D.G.C" 

80 REM ****** SPRITE* ******** 
90 FOR N*=0 TO 32:A$="" 

100 FOR l%=\ TO 32 :READ Q :A$=A*+CHR$CQ3 : 
NEXT I* :SPRITE$CN*3=A$ 
110 NEXT N* 
120 GOTO 2680 

130 REM ****** PANTALLA ****** 
140 SCREEN 0:SCREEN 2:LINE C20. 303-C240, 
35 3 . 10,BF:LINE C20, 403 -C240. 45 3 . 7. BF :LIN 
E C20. 1853-C240, 1913.7,BF:LINE C20.1303- 
C25. 1833. 14.BF:l.INE C235. 130 3- C 240. 1833 . 
14, BF 

150 Y=60:FOR N~-0 TO 5 :PSETC20. Y3 :DRAUTC6 
R10U10L10D 10" :PAINT C 25 . Y-53 . 6 :Y=Y+13 :NE 



XT NrLINE f 109. 03-C130. 203,6, B:LINE C135 
,03-f240,203.6,B 

160 Y = 60:FOR N=0 TO 5 :PSETC230, Y3 :DRAUI"C 
6R10U10L10D10" :PAINT C 235 . Y-5 3 . 6 : Y=Y+ 1 3 : 
NEXT N:IF P=0 THEN PLAY E$ 
170 1F P<>6 THEN PUT SPRITE 0,r219,1503. 
10. 23 

180 LTNE f 20.03 -C40. 203.6, B . 

190 LINE f 47, 03-f 105, 203 . 6, B 

200 I FU -0THENPRESET C 100, 1003 :COLOR 10:PR 

INT#1 . "GAME OUER' : : |r ORN=0TO500 :NEXTN :PUTS 

PRITE13. C255, 1913. 1 :PUTSPRITE1 1 . C255, 191 

3.1 :PUrSPRITE12. f 255, 191 3. 1 :PUTSPRITE13, 

C255, 1913.1 :PUTSPRITE14. C255. 1913,1 

210 IF U^0 THEN Y--130 :X-125 :STRIGC03OFF : 

STRIGC 1 30FP :FOR N^0 TO 88:PUT SPRITE 10. 

fX.Y3.6.20:PUT SPRITE 1 1 . CX-1'6. Y3 . 15, 21 : 

PUT SPRITE 12. CX+32, Y3, 15,22:Y=Y-1 :NÉXT 

N:FOR N^0 TO 500:NEXT N:GOTO 2680 

220 IF U-l THEN PUT SPRITE 7. C 49, 23 . 10. 

230 IF U^2 THEN PUT SPRITE 7. C49, 23 . 10. 
:PUT SPRITE 8, C 67. 2 3 , 1 0, 

240 IF U=3 THEN PUT SPRITE 7. C49, 23 . 10. 
:PUT SPRITE 8. C67. 23 . 10. :PUT SPRITE 9, C 
85,23. 10,0 

250 PRESETC1 10,43 :COLOR 6 :PRINTt*l . Ul :GOS 




oonr oqitiqc 
ri\uüi\iii ii iJ 



UB 350 

260 IF P=0 THEN 750 

270 ON P GOTO 470,610.860.960.1080.1200» 
1320. 1420. 1580. 1660. 1780. 1910 
280 COLOR 10,l.l:6OTO 260 

290 FOR N=0 TO 500:NEXT N:PUT SPRITE 10. 
C255. 1913. 1 :PUT SPRITE 1 1 . C255. 191 3 , 1 :PU 
T SPRITE 12, C255, 1913, 1 :PUT SPRITE 13. C2 
55. 191 1. 1 :PUT SPRITE 14, C255. 191 3 . 1 
300 PUT SPRITE 10, CX, Y+323 , 6, 20 :PUT SPRIT 
E 1 1 , CX+ 16, Y+32 3 , 15,21 :PUT SPRITE12. CX+32 
.Y+323. 15,22 :FOR N-0TO500 :NEXT NrRETURN 
310 REM ****** COMIDA ****** 
320 PUT SPRITE30. C100. 1683. 10. 16:PUT SPR 
ITE31 . f 1 16, 168 3 . 10, 1 5 :RETURN 
330 IFB=1THENIFX<132ANDX> 100ANDY=135THEN 
COLORI '.PRESETC 1 10.43 :PRINT#1.U1 :C0L0R6:U 
1=U1+3:PRESETC 110,4 3 :PRINT#1,U1 :PUTSPRIf 
E30, C255. 1913.1. 1-5 :PUTSPRITE31 , C255, 131 3 
, 1. 16:B=2:FORN=0TO20:BEEP:SC=SC+15:NEXTN 

340 RETURN 

350 REM ***** OBJETO ***** 

360 PUT SPRITE 6. C22. 23 . 10, S :FOR N=0 TO 

5:PLAY"ul5o8c" :BEEP:NEXT N 

370 RETURN 

380 REM ***** ROBOT ***** 

39tf PUT SPRITE 19, CX2.Y23, 15, 30: PUT SPRI 
TE 20, CX2,Y2+163. 15,31 :PUT SPRITE 21.CX2 
, Y2+323 , 15, 32 
400 IF X2<40 THEN X2=U80 

410 IF Y=94 AND X<X2+16 AND X>X2-16 THEN 
RETURN 

420 IF X<X2+16 AND X>X2-16 AND A2=6 THEN 
X2=200:f r ORN=0 TO 6 :PLAY"ul5o8c " :BEEP :NE 
XT N:B1=2:SC=SC+50:RETURN 
430 IF Bl=2 THEN X2=U80 :C1=10 :B1=1 
440 IF X<X2+16AND X>X2-16 AND Y<134 AND V 
>90THENX2=200 :FOR N=0TO6 :BEEP :PLAY"U1501 
C" :NEXTN :B1=2 :SC-SC+100 :RETURN 
450 IF X<X2+16 AND X>X2-16 AND A2<>27 AN 
D A2<>6 AND Y=135 THEN FOR N=0 TO 15:BEE 
P:NEXT N:U=U-1 :U1=6:SC=SC-50:SCREEN 0:SC 
REEN 2 :GOTO 130 
460 RETURN 

470 REM ***** 2 PANTALLA ****** 
480 PRESETC 150, 53 :PRINT#1 , "COCINA" 
490 LINE C 100, 453-C103. 603,7. BF:PSET C50 
, 1853 :DRAU1 C$:PAINT C53. 1803 . 8 :L INE . C 155 
, 1853- C 185, 1913, 1 . BF : LINE C 155, 1433 -C 185. 
1403.6.BF:PUT SPRITE 4, C 160, 543 , 2, 15 
500 PUT SPRITE 2. C87.603, 10, 13:PUT SPRIT 
E 3. f 101.603. 10, 14:LINEC150,703-C190.75) 
. 10.BF:LINEC150. 1803 -C 190. 143 3 . 14, BF :LIN 
EC153. 1 773- C 168. 1 ¿63 . 1 . B :L. INEC 172. 1773 -f 
187. 1463. l.B 

510 A=0:A1 = 1 :A2=2:A3=3:A4=4:X=^40:Y=94:T-_ 
X:C=1 :X2=100 
520 GOTO 2050 

530 IF X<40 AND Y=135 THEN P=P-1 :SCREEN 
0:SCREEN 2:G0T0 130 

540 IF X>135 AND X<180 AND Y=-135 THEN P~- 
4:SCREEN0:SCREE'N2:GOTO130 
550 I FX> 1 23ANDX < 1 35ANDY=94THENY= 1 35 
560 IFX<40 AND Y=94 THEN X=40:T-X 
570 IF X>200 THEN P=P+1 :SCREEN 0:SCREEN 
2:SC=SC+10:GOTO 130 



580 GOSUB 380 

590 IF X>190 AND Y-94 THEN Y=135 
600 RETURN 

610 REM ***** 3 PANTALLA ****** 

620 PRESETC 150. 53 :PRINT#1 . "COMEDOR" 

630 PUTSPRITE2. C86.453. 10, 13 :PUTSPRITE3; 

C 100,45 3. 10. 14 :PUT- SPRITE 4, C 150, 453 , 10. 

13:PUT SPRITE 5. C 166. 453 . 10. 14 

640 LINE C60. 185D-C90, 191 3. 1 ,BF:PSET C14 

0. 1853:DRAU1 C$:PAINT C 143. 1823 . 8 : IF SOI 
1 THEN PUT SPRITE 15, C 160, 1263 , 10, 1 1 
650 X2=120:GOTO 2040 

660 IF X<80 AND X>50 AND Y>130 THEN U=U- 

i:Ul=6:F0R N=0 TO 20:BEEP:NEXT NrSCREEN 

0:SCREEN 2:G0T0 130 

670 IF X<120 AND Y<=94 THEN Y=135 

680 IF X>120 AND Y<135THEN Y=94 

690 IF X>160 AND X<176 AND Y=94 AND SX1 

ITFiEN S=ll:PUT SPRITE 15, C255, 191 3 . 1 :GOS 

UB 350 

700 IF X>190 AND Y<=94 THEN Y=135 

710 IF X>200 THEN P=P+ 1 :SCREEN 0:SCREEN 

2:SC=SC+10:GO T O 130 

720 IF X<40 THEN P=P-1 :SCREEN 0:SCREEN 2 
:GOTO 130 
730 GOSUB 380 
740 RETURN 

750 REM ***** 1 PANTALLA ***** 
760 PRESETC 150. 53 :PRINT#1 . "RECIBIDOR" :LI 
NE C155. 1853-C180. 1913. l.BF:LINE C40. 100 
3-C100. 180 3.8. BF: LINE C42, 1023-C98. 1783 . 

1. B:LINE C44, 1043-C69, 1763. 1 .B-.LINE C71. 
104 3-C96. 176 3. 1 .B:LINE C43. 180 3-C97. 1853 
,8.BF 

770 LINEC130.453-C133.603.2,BF:PUT SPRIT 
E 15. C116.603. 10. 13:PUT SPRITE 16.C131.6 
03. 10, 14:PSET C 140, 1853 :DRAlü C$:PAINT Cl 
43. 180 3.8 :L INEC 190. 453 -C 193. 60 3 . 2, BF :PUT 
SPRITE 17. C176.603, 10, 13:PUT SPRITE 18, 
C192,603. 10. 14:X2=200 
780 GOTO 2040 

790 IF X<120 AND Y=94 THEN Y=135 
800 IF X<40 THEN X^40:T=X 
810 GOSUB 380 

820 IF X>140 AND X<170 AND Y=135 THEN FC 

R N=0 TO 20:BEEP:NEXT N :U=U-1 :U1=6 :SCREE 

N 0:SCREEN 2:GOTO 130 

830 IF X>190 AND Y=94 THEN Y=135 

840 IF X>200 THEN P=P+1 :SCREEN 0:SCREEN 

2:SC=SC+10:GOTO 130 

850 RETURN 

860 REM ***** 4 PANTALLA ****** 

870 PRESETC 150. 5 3 :PRINT#1. "ASCENSOR" 

880 LINE C150.403-C230. 1913, l.BF:LINE Cl 

00,453-C103.603.7.BF:PUT SPRITE 2.C86.60 

3.11.1S:PUT SPRITE 3, C 101 . 603 . 1 1 , 14 

890 LINEC 150, 40 3 -C 145, 1203 , 7, BF :LINEC50, 

1853-C130.853.2.BF:LINEC52.873-C128. 1103 

. l.B:LINEC52. 1 123.-C128, 1503 . 1 . BF :LINEC52 

. 1523-C85, 1833, 1,B:LINEC87, 1523- C 128. 183 

3 , 1 ,B:X2=100 

900 GOTO 2040 

910 IF X<40 THEN P=P-l:SCREEN 0:SCREEN 2 
:GOTO 130 
920 GOSUB 380 

930 IFU)=1THENIFX>160THENSTRIGC03STOP:STR 

IGC1 3STOP:FO RN=0TQ100:PUTSPRITE1Q, CT.Y3. 
. 



I 



I l-l 



6. A:PUTSPRITE1 1 . CX-8, Y+163. 15. Al :PUTSPRI 
TE12. CX+8. Y+163, 15. A2 :PUTSPRITE13. CX-8, Y 
+ 32 3. 15, A3:IFC=1THENPUTSPRITE14, CX+8. Y+3 
m, 15, A4:Y=Y-1 :W=tü+l :NEXTN :P=7 :SCREEN0 :S 
CREEN2: GOTO 130 

940 IF Ul=l THEN IF C=2 AND X>160 THEN Y= 
Y-l:NEXT N:tú=lü+1 :P=7: SCREEN 0:SCREEN 2:G 
OTO 130 
950 RETURN 

960 REM ***** 5 PANTALLA ***** 
970 PRESET C 1 50, 5 3 :PRINT#1 , "SOTANO" 
980 PUT SPRITE 2. C50, 503 , 6, 28 :PUT SPRITE 
3. C67.503.6,28:PUT SPRITE 4, C85. 503 , 6. 2 
8:PUT SPRITE 5. C50, 67} , 6, 28 :PUT SPRITE 1 
5. C50.85D.6.28:PUT SPRITE 16, C67. 853 , 6. 2 
8:PUT SPRITE 1 7 . C85. 85 3 . 6, 28 :PUT SPRITE 
18. C85.673.6.28 

990 PSET C50. 1853 :DRAld C$:PAINT C51 . 183") 
.8 

1000 X=120:FOR N=0 TO 2 :PSETCX. 1853 :DRAu, 
M c7r30u25130d25" :PSETCX+2, 183] :DRAUTC7R2 
6U21L26D21" :PAINTCX+5, 1703 , 7 :PRESETCX+5, 
170]: COLOR 1 :PRINT#1 . "DGC" :X-X+32:NEXT N 
:X2=180 

1010 GOTO 2030 

1020 IF X>200 THEN P=5 :SC-SC+13 :SCREEN 

:SCREEN 2:G0T0 130 

1030 GOSUB 380 

1040 IF X.<40 THEN X=40:T=-X 

1050 IF X>130 AND Y<135THEN Y=110 

1060 IF X<130 AND Y=110 THEN Y=135 

1070 RETURN 

1080 REM ***** 6 PANTALLA ***** 

1090 PRESETf 150,5] :PRINT #1 . "BODEGA' 1 íLIN 

E C50, 1803-C220, 1853,6,BF 

1100 LINE C60,453-C63,603. 10,BF:LINE C12 
0,45] -C 123, 60], 10.BF:LINE C 180, 45] -£ 183. 
60], 10,BF:PUT SPRITE 2, C54, 603 , 6, 19 :PUT 
SPRITE 3. C114.603.6. 19:PUT SPRITE 4,C174 
,60].6.19:IF SX12 THEN PUT SPRITE* 5, C 1 2 
5. 168], 10. 12 

1110 CIRCLEC100. 140], 40,9. ., 1.4:CIRCLE C 
170, 140], 40,9. ,, 1.4: PAI NT C 100, 140] . 9 :PA 
INT C170, 140],9:CIRCL.E C 100. 140] . 37, 1 , , , 
1.4-.CIRCLE C170, 140], 37. 1, , , 1 .4:C0L0R1 :P 
RESETC80, 130] :PRINT#1 , "T INTO" : PRESET C15 
0, 130] :PRINT#1 . " JEREZ" 

1120 CIRCLE C100, 160],4, 1, , , 1.4:CIRCLEC1 
70, 160], 4, 1. . , 1.4:PAINTC100, 160], 1 :PAINf 
C170, 160], 1 :X2=180 
1130 GOTO 2030 

1140 IF X<40 THEN P=4:SCREEN 0:SCREEN 2: 

GOTO 130 

1150 GOSUB 380 

1160 IF X>125 AND X<136 AND Y=135 AND S< 
>12 THEN S=12:PUT SPRITE 5. C255, 191 ] . 1 :G 
OSUB 350 

1170 IF X>200 AND S=9 THEN P=6 :SC=SC+15 : 
SCREEN 0:SCREEN 2 ¡GOTO 130 
1180 IF X>200 AND S09THEN X-200 : T=X 
1190 RETURN 

1200 REM ***** 7 PANTALLA ***** 
1210 PRESETC 150.5] :PRINT#1, "REFUGIO" 
1220 LI NEC 30, 47] -C 230. 57 3, 1 4 , BF :L I NE C 30 . 
47 3-C40, 130], 14,BF:LINEC230,47]-C220, 185 
3. 14,BF:LINEC220, 185 ]-C 150. 85] . 10. BF :L IN 

¡LINEC154. 



6, 130], l.BF:LINEC156. 132]-C214. 181], l.B: 
COLOR10:PRESETC 160, 100] :PRINT#1. "UHISKY" 

1230 PRESETC 160. 120] ¡PRINTttl , "R.II.R" 
1240 LINEC70,60]-C73.70],2,BF:puT SPRITF 
0. C56.70]. 10. 13:PUT SPRITE 2'. C71 . 70] . 1 
. 14:B=1 :GOSUB 310:IF"S><8 THEN PUT SPRIT 
E 3. C 160. 152]. 1.8 
1250 GOTO 2030 

1260 IF X<40 THEN P=5:SCREEN 0:SCREEN 2: 
GOTO 130 

1270 IF X>190 THEN X=190:T=X 

1280 IF X>200 THEN P=12:SCREEN 0:SCREEN 

2: GOTO 130 

1290 IF X>160 AND X<176 AND Y=135 AND 
>8 THEN S=8:PUT SPRITE 3. C255. 1 91 ] . 1 :GOS 
UB 350 

1300 GOSUB 330 
1310 RETURN 

1320 REfl ***** 8 PANTALLA ***** 
"330 PPESETC 150. 5] :PRINT#1 . "DOJO" :LINE C 
•5,70] -C150,90].7.BF:PRESET C 6 1.75] :COLO 
R 1 :PRINT#l.",BOB'S DOJO":LINE C57.723-C1 
48.88], l.B 

1340 LINE C50, 185] -C200. 178],9.BF:LINE C 
170,45]-C173.70],2,BF:CIRCLE C 171. 85], 15 
. 10. . . 1.4: CIRCLE C 171 . l 153, 15. 10, . . 1.4:L 
INE C 160.85] -C 160. 1 15], 10:LINE C182.85]- 
C182.115].10:PAINT C 171 . 85] . 10 :PAINT C17 
1 . 1 15]. 10:PAINT C164, 100], 10:PAINT C178. 
100]. 10:X2=100 

1350 LINE C160, 100]-C182. 108].7.BF:LINE 
C 70, 100] -C 120, 178], 14,BF:LINE C72, 102D-C 
95. 176], 1 .B:LINEC97. 102]-C118, 176], 1,B:C 
ÍRCLEC205. 105] . 16.6. , . 1 . 4 :PAINT C205. 105 
].6:PRESETC198. 102] :PRINTttl, "BB" :PUT SPR 
I TE 2. C 125, 169], 2. 29 
1360 GQTO 2030 
1370 IF X<40 THEN X=40:T-X 
1380 GOSUB 380 

1390 IF X>200 THEN P-8 :SC-SC+18 : SCREEN 
:SCREEN 2:G0T0 130 

1400 IF X>125 AND X<136 AND Y--=135 THEN P 
-0:U1-U1 -1 :U-1 : SCREEN 0:SCREEN 2:GOTO 13 


1410 RETURN 

1420 REM ***** 9 PANTALLA ***** 
1¿30 PRESETC 150.5] :PRINT#1. "PASILLO" 
1440 LINE C60.45.]-C63.60].2.BF:PUT SPRIT 
E 2, C45.60], 10, 13:PUT SPRITE 3.C61.603.1 
0,14:LINE C150.45]-C153.60].2.BF:PUT SPR 
í TÉ 4, C 135, 60] . 10, 13 :PUT SPRITE 5.C151.6 

] , 1 , 1 4 

1450 L I NE C 1 30 , 1 85 ] - C 1 70 , 85 ] , 1 4 , BF : L I NE 
C132. 183] -C 168.87], l.B :L INE C 134. 181 D-C 1 
49,89 3. l.B :L INE C 151 , 89]- C 1-66, 181 ] „ 1 . B :C 
IRCLEC 138. 150]. 3. 1. , . 1.4:PAINT C 138. 150] 
. 1 :X2=200 

1460 IF SO10 THEN PUT SPRITE 15.C180.16 
8] . 10, 10 

1470 LINEC60, 1 203- C 100, 803 , 15, BF :L INEC62 
. 1 183 -C 98. 82 3 . 1 . B ".PSETC70. 99 3 :DRAlü"clrl0 
d5©8h8d51 10d6" :PAINTC72. 102 3 . 1 
1480 GOTO 2030 

1490 I.FX<40THENX^40:IFAl = lTHENT=X+8 
1500 IF X>200 THEN P=9 :SC=SC+1 000 :SCREEN 
0:SCREEN 2:GOTO V. 




1510 GOSUB 380 
1520 IF XM15 AND X<170 AND Y=135 THEN P 
=7:SCREEN 0:SCREEN 2:G0T0 130 
1530 IF X>182 AND X<198 AND SX10 AND Y= 
135 THEN S=10:PUT SPRITE 15, C255. 1915 . 1 : 
GOSUB 350 

1540 IF SO10 AND Y=135THENX=X-3 :T=X 
1550 IF Al = l THEN T=X 
1560 IF A1^5 THEN T=X-8 
1570 RETURN 

1580 REM ***** 10 PANTALLA ***** 
1590 PRESETC 150, 5] :PRINT#1 , "DORMITORIO" : 
LINEC60, 185]-C110.85].9,BF:LINEC62, 183]- 
C 108. 871, l.B:LINEC64, 1811 -C84, 871, 1,B:LI 
NEC86,87] -C106. 181 ]. 1 . B :CIRCLEC90. 140], 3 
. 1. . . 1 . 4 :PAINTf 90, 140], 1 

1600 PSETC125, 185D :DRAU)"C6U40DR5D20R80U2 
0R5D40L5U5L80D5L5" :PAINTC127. 183],6:L^nf 
C170,4-]-C173.601.7.BF:PUT SPRITE 2.C15 
5.601, 10, 13:PUT SPRITE 3. C 171 . 60] , 10. j 4 : 
X2=60 

1610 GOTO 2030 

1620 IF X<40 THEN P-8:SCREEN 0:SCREEN 2: 

GOTO 130 

1630 GOSUB 380 

1640 IF X>200 THEN P^10 :SOSC-l :SCREFN 
:SCREEN 2:G0T0 130 
1650 RETURN 

1660 REM ***** 11 PANTALLA ***** 

1670 PRESETC 150, 5] :PRINT#1 , "UP-DOUIN" :LIN 

EC150.401--C200. 191 ]. l.BF 

1680 X=45:F0R N=0 TO 2:LINE CX. 185]-CX+3 
0, 160].2,BF:LINE CX+2. 183]-CX+28, 162], 1 
B:PRESETCX+5. 168] :COLOR 1 :PRINT#1 "GCM" : 
X=X+35:NEXT N:U)=1 

1690 LINE C60.60]-C100,90]. 15,BF:LINE f6 
2.62]-C98.88]. 1 .B:LINE f 64, 64]-C75, 86] . 1 
,B:LINE C77.64]-C96,86], l.B 
1700 X2=135 
1710 GOTO 2030 

1720 IF X<40 THEN P=9:SCREEN 0:SCRFFN 2: 
GOTO 130 

1730 IF X>200 THEN X=200:T=X 
1740 GOSUB 380 

1750 IF X>150 AND X<200 THEN IF S=12 THE 
N P=l 1 :SC=SC+1 1 :SCREEN 0:SCREEN 2:GOT01^ 


1760 IF XM50 AND X<200 THEN ÍF SO 12 Th 
EN P=INTCRNDCl]*10]:Sr.REEN :SCREEN2 :GO f 
O 130 

1770 RETURN 

1780 REM ***** 12 PANTALLA ***** 
1790 PRESET C150.5] :PRINT#1, "ATICO" :L INK 
r60,45]-C63.60],2.BF:PUT SPRITE 2,C4'..Ó 
0],10,13:PUT SPRITE 3, C62, 60] , 10, : ~F ¡5 
09THEN PUT SPRITE 4-, C 1 10, 168] . 10. á 
1800 PSET C140, 185] :DRAU C$:PAINT C 1 
80], 8 

1810 LINE C60. 180]-C105, 100], 11,BF:LINE 
C62. 178] -C 103. 102], l.B:LINE C65. 180]-f 10 
0, 185], 1 l.BF :LINE C 64 , 1 04 ] - C 1 1 . 1 50 ] , 1 . B 
:X2=150 

1820 GOTO 2030 
1830 IF X<40 THEN X=40:T^X 
1840 IF SX9 ANDX>110 ANDX<126 ANDY=135 
THEN S=9:PUT SPRITE 4, C255. 1910 . 1 :GOSUB 
350_ 

— 



1850 IF X<120 AND Y=94 THEN Y=135 
1860 GOSUB 380 

1870 IF X>190 AND Y=94 THEN Y^--135 

1880 IF X>200 THEN IF S=12THEN P=12:SCRF 

EN 0:SC=SC+234 :SCREEN 2:G0T0 130 

1890 IF X>200 AND S012THEN P=10:SCREEN 

0:SCREEN 2:G0T0 130 

1900 RETURN 

1910 REM ***** 13 PANTALLA ***** 
1920 PRESET C150.5] :PRINT#1, "TATAMI" 
1930 LINE C60, 185]-C200, 1823 , 6. BF :L INE f 
40, 50] -C 220, 175], 10,BF:LINE C42.52]-C100 
, 1 00 ] , 1 , BF : PRESET C48. 70] :C0L0R 6:PRINT 
#1. "PUNTOS" :CIRCLE C 1 40. 1 00 ] , 30, 6, , , 1 . 4 : 
PAINTC 1 40, 100].6:X2^200 

1940 PUT SPRITE 2. C 1 30. 90] , 1 . :PUT SPRIT 
E 3. C160. 135], 1,24 

1950.LINE C60.180]-C110.110],1,BF:LINE C 
62. 178] -f 108. 1 12], 10,B:SC=SO2532 
1960 GOTO 2030 

1970 ir X<40 THEN P=11:SCREEN 0:SCREEN 2 
:GOTO 130 
1980 GOSUB 380 

1990 IF X>200 THEN X=200:T=X 
2000 IF X>140 AND S=8 AND Y=135 THEN S=2 
4:PUT SPRITE 3. C255. 191], l:GOSUB 350:GOT 
O 3070 

2010 IF X>200 THEN X=200:T=X 
2020 RETURN 

2030 REM ***** MOUIMIENTO ***** 

2040 A=0:A1=1 :A2=2:A3=3:A4-4:X=40:Y=135: 

C = l :T=X:N1^1 :M1 = 1 

2050 PUT SPRITE 10, CT. Y] , 6, A :PUT SPRITE 
ll.fX-8.Y+16].15,Al:PUT SPRITE 12,CX+8,Y 
M6], 15,A2:PUT SPRITE 13. CX-8. Y+32] . 15. A 
3:IF C=í THEN PUT SPRITE 14, CX+8, Y+32] , 1 
5. A4 

2060 D-STICKCJ1] 

2070 IF D=0 THEN PUT SPRITE 10, CT Y] 6 A 
:PUT SPRITE 1 1 . CX-8. Y+16] . 15. Al :PUT SPRI 
TE 12.CX+8.Y+16].15.A2:PUT SPRITE 13. CX- 
8. Y+32], 15,A3:X2=X2-3:IF C=l THEN PUT SP 
RITE 14, CX+8. Y+32], 15, A4 

2080 IF D=3 AND Nl = l THEN Al = l :A2=2:A3=3 
:C4=4:x=X+4:T=:X:X2=X2-3:C-l :BEEP :N1 =2 :G0 
TO 2140 

2090 IF D^3 AND Nl=2 THEN Al = 1 : A2=2 : A3M 
8:A4r.26:X=X+4:X2=X2-3:T=X:c=:l :BEEP:N1 = 1 : 
GOTO 2140 

2100 IF D--7 AND Ml"Í THEN Al = 1 : A2=25 : A3= 

3:A4=4:x=X-4:X2-X2-3:T=X:C=l :BEEP:M1=2:G 
OTO 2140 

2110 IF D=7 AND MI «2 THEN Al = l :A2=25 :A3= 
18:A4=.-26:X--X-4:X2-X2-3:T-X:C=1 :BEEP:"M1 = 1 
:GOTO 2140 

2120 IF D=l THEN Al --5 : A2=6 : A3=7 :C=2 :X2=X 
2-3:T=x-8:PUT SPRITE 14, C255. 191 ] , 1 , 4 :G0 
TO 2140 

2130 IF D-5 THEN Al - 1 : A2=27 : A3=3 : A4=4 :T = 
X:C=1 :X2=X2-3 

2140 IF P--6 THEN GOSUB 330 
2150 IF P=0 THEN GOSUB 790 

2160 ONPGOSUB 530,660,910.1020.1140,1260 
. 1370. -1490, 1620. ;720. 1830, 1970 
2170 STRIGC1.]ON:STRIGC0]ON 
2180 GOTO 2050 

2190 REM ***** SALTO ***** 






2200 STRI6CnOFF:STRIGC0DOFF:IF P=0 OR P 
= 2 THEN IF Y=94 THEN STRIGC 1DON :STRI6C03 
0N:6QT0 2050 

2210 Al-=5 í A2=6 : A3=l? :T=X-8 *C*2 *PUT SPRIT 
E 14, C255. 19H. 1.4 

2220 FGR N=0 T05 :X=X+5 : v=Y-7 :P"JT SPRITE 
10, C r, Y),6.A:PUT SPRITE 1 1 , CX-8, Y+16D , 15 
,Al:PUT SPRITE 12, CX+8, Y+16D . 15, A2 :PUT S 
PRITE 13. CX-8.Y+32J. 15, A3 :T=X-4 :NEXT N :T 

=X-4 

2230 IF X>200 THEN X--200 :Y=135 :T=X-8 :GOT 
O 2050 

2240 I F P=0 GR p = 2 ORP^l 1THENIF X> 1 20 AN 

D Y<135 THEN Y^94 : T=:X-8 : GOTO 2320 

2250 IF P--1 THEN IF X<120 AND Y<135 THEN 

Y=94:T=X-&:G0T0 2320 
2260 IF P-- THEN IF X<130 AND Y<135 AND 
Y>90 THEN Y=94:T=X-8:G0T0 2320 
2270 IF P=4 THEN IF X<130 AND X<94 ÍHEN 
P=2:SCREEN 0:SCREEN 2:G0T0 130 
2280 IF P=4 THEN 1FX>138 AND v<i35 THEN 
Y=110:T=X-8:GOTO 2320 
2290 IF P<>6 THEN GOSUb 380 
2300 FOR N=0 T05:X=X+5:Y=Y+7:PUT SPRITE 
18, CT.Y3.6, A:PUT SPRITE 1 1 , CX--8. Y+16D . 15 
,Al:PUT SPRITE 12, CX+8, Y+16D . 15, A2 :PUT S 
PRITE 13. CX-8.Y+323, 15. A3 :T=X-4 :NEXT N: T 
=X-8 

2310 PUT SPRITE 1 4 , C 255 , 191"), 1 , 4 ! IF P"=6 
THEN IF X>200 THEN P=12:SCREEN 0:SCREEN 
2: GOTO 130 

2320 COLOR 1 :PRESETC110,4D :PRINTttl,Ul :CO 

LOR 6:U1=U1 -1 :PRESETC 1 10, 4 3 :PRINT#1 ,U1 : I 

F U1=<0 THEN GOSUB- 290 :SCREEN 0:SCREEN 2 

:P=P:U1=6:U=U-1 :B=1 :GOTO"130 

2330 STRIGCn0N:STRI6C8D0N:F0R N=0 TO 3: 

BEEP:PLAY^l5o2b" :NEXT N 

2340 Ai"s?l sA2=2^:A3~3 :A4=4 :C=1 íT=X :60T0 20 

50 

2350 DATA 5. 10, 21 . 0, 21 , 42, 85 1 , 42, 85, 43, 85 

,43.21, 11,5,3,80, 168.80,0,248.200,254,25 

4,248. 192. 192.248.248.240, 192, 128 

2360 DATA 0,0,0,0,1,3,3.1,1.0,0,0,0,0.0. 

0, 15.63. 127.255.255,223.223.255,251. 117. 

26,21.31,0,63.63 

2370 DATA 192. 224. 240, 252, 255, 255, 255, 2'- 

1,240,224,224,240,240,0,248.248,0,0,0.0, 

245.250,245,226. 128.0,0,0,0.0,0,0 

2380 DATA 0, 0, 0, 0, 0, 0, 1 . 7. 15. 31 . 63. 1 26, 2 

52.80, 170,85.63. 127. 126. 124,252.248.248. 

240. 240. 22¿. 128.0.0.0,0.0 

2390 DATA 252,254,63.31.15,7.3.1.3.7.15. 

31,63.20,42,21,0.0,0, 128, 192. 224, 240, 24H 

,240,224.192.128.0, .128,64 

2400 DATA 7. 15,31.63.63, 127.255,25. .255. 

127.63.63.0,31 .63.63. 128. 192.224,240,255 

, 255. 255. 234, 21 5, 233. 248. 240, 3. 255. 255. 2 

55 

2410 DATA 0,0.0.0,254.253.254,253.192.0. 
0.63,255.255.255, 255.0,0,0,0, 128.8. 128.0 
.8, 16.8,208,232.208.232. 192 
2420 DATA 63.31.7,3.1,1,3,7,15,31,63.63. 
63. 20. 42, 21 . 255, 252, 240, 240, 248, 248, 240, 
224, 192, 128,0,0,0,0, 128,64 
2430 DATA 0,0.0,0,56,108.199,131.130,198 
, 108, 56. 0,0, 0,0, 0,0, 0,0, 0,0, 255 , 255 ,27.2 
7.27.0.0.0,0,0 



2440 DATO 0,0,0,0,0.0,0.0,0,4.14,27.30.2 
5-, 125, 255. 0,0, 0,0,0-, 0,0, 0,60, 1 16.222. 245 
, 184, 239, 251 . 255 

2450 DATA 0,0.0.0.15,15.63.127.255.255.1 

93,255.201 .201 .255, 127.8.8.8.8.200.200,2 

00.254,255.3.3.3.3.3,255,254 

2460 DATA 0,0.0,7,63.119.223.125,254.255 

.255.254.253.251.247. 127. 127.65. 193.255. 

253. 251 . 247. 239. 95. 191 . 95, 239. 247. 251 , 25 

3.255 

2470 DATA 252.158.287.239,255.79,183.11° 
.63.63.51.25.29. 15. 15. 15.255. 127.63. 159. 
207, 230, 2$2, 248, 252. 252. 252. 248. 248. 248. 
240. 240 

2480 DATA 0,0,1.1.2.5.11.22,47.127.255.1 
70. 178. 170. 170, 170, 15, 125. 143.234.219. 18 
2. 189,219,247.239,255., 170, 170, 170, 170, 17 



2490 DATA 24^,254,239.181.218.237.118,18 

7. 221 . 238. 255. 1 70. 1 70, i 70. : 70, 1 70, 0, 0. 1 2 
S. 128. 192. 96. 176,216,236,246,255, 170, 170 
, 170, 1 70, 170 

2500 DA'" A 31.31.25.23.20.21.21.21.21.20, 
23.25.31.31.31 . 15.240,240,240.240,80,80. 
80. 80. 80. 80. 208. 208. 240. '40, 240, 224 
2510 DATA 0,0.0,127.234.245,250,250.250. 
250.250.250.250.250. 122.58.0,0.0.252. 170 
,84. 170, 170, 170, 170. 170, 170, 170, 170, 170, 
170 

2520 DATA 63.31.63.63.126.126.254,255,25 

5. 127.31 .7.0.0.0,0,255.252, 192,0,0.0,0, 1 

28.208. 160. 208. 160, 144.32. 16. 

2530 DATA 0,0.0.0.0,0.0,0.2.5.2,5,10,4,8 

.0.63.63.31.7.3. 12.31.63. 126.253.251.247 

.242.5.2.0 

2540 DATA 1.3.7.3.7.5,9,18.34.36,32,16.8 
.4.3.0, 128. 192.224, 192,224, 160. 144.72.68 
.36.4.8. 16.32. 192.0 

2550 DATA 0.0.3.67.175.75.171.79.170,69. 

170.64.42.5.2,0,0.0.0.0, 136. 140, 140,255. 

255. 127. 171.84, 178,84. 168.8 

2568 DATA 8.8,8.8,8,8,31.127.255.227.221 

.222.231.251. 124.7.8.8.8.8.3. 123.251.251 

.251.251.255. 11.247.235. 15.251 

2578 DATA 8,0,0,8,1.3.7.15,255.254,252,2 

40.255.255,255.65.8,8,8,8,8, 128. 192.224. 

24 l . 258 .121.2, 253 , 258 , 253 . 258 

2588 DATA 7.15.14.14.18.18.11.15.7,8.8.8 

.8.0.0.0, 131. 195.231.255.255.255.234. 199 

,131,3,3,7.7 7 7 3 

2590* DA r Á 192.224,224.224.224,224. 192,22 
4.224, 192.224,224, 192.224,224, 192,0,0.0. 
0.0.0,0,0,0,0,0,0,0,0,0,0 

2600 DATA 192.224,240,248.248,249.250,25 

3.250.240.248,248.248.0,252,252,0,0,0.0, 

0.0, 128.0, 128, 0,0, 0,0. 0,0,0 

2610 DA^A 240.248.252,254.255,255,127.12 

6.252.248.240,224, 1 28. 88 . 1 68 . 8 . 0, 8, 8, 8. 8 

,8.8,8,8,8,8,8.8,8,8,8 

2628 DATA 192,224.248.248,248.248.052.25 
4. 255. 255. 255. 247. 243. 8. 248. 248. 8. 28. 48. 
28.60.60. 124. 248. 2*40. 224, 192, 1 28. 0. 0, 0, 

2630 DATA 0,57.127.127.127.63.63.127.127 
. 127. 127.63. 127. 127.61.0.0,60,254,254.24 

8. 252, 254, 254. 252. 252, 254, 254, 254, 254, 28 

1 
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2640 DATA 0.0,17.25.25,25.25.13.103.119, 
63.31 . 15.7.3.0.0.0.0,4. 140, 140.. 140. 153. 1 
79.230. 252.248.240.224.224. 192 
2650 DATA 0.7.11.19,35.75.91.67.127.127, 
127.63.31.7.7.0,252.252. 128. 190. 170. 170. 
170. 170, 170. 170. 190. 128.255.254,252,0 
2660 DATA 3.6.6.10.11.11.11,11.15.131.12 
7.31. 10. 10.7.63.240. 168. 171.239.239.239. 
239.239.239.239. 175. 175, 1 71 . 1 71 . 248. 254 
2670 DATA 63.31.10,10,10,10.10,10,31.51. 
104.94,51 J. 12,0,254,252. 172. 172, 172, .17 
2. 172. i "4. 255. 243. 237. 222. 51 .30, 12.0 
2680 REN ***** PRESENTACION ***** 
2690 COLOR .1,1 

2700 STRIGC0DOFF ."STRIGC 1 JOFF :SCREEN0 :SCR 
E.EÑ2 : KEYOFF í GtS : C=i 5 

2710 DA1A 200,100,100,200,23,23.73.56.56 
.0,0.0. 13. 14:REST0RE 2710 :rQRN---0 TO 13:R 
EAD D:SOUND N, D :NEXT N 

2720 PSETC20, 10] :DRAUJ"c=c ;d50r-5o20f 20r5h 
25e2515g20u2015" :PSETC60, 10} :DRAW"c-c SIS 
g27e27r5f 2715h 10128g 13" :PSETf55. 15] :DRAuJ 
"c=c ;g5rl5h515" 

2730 PSETC60,28] :DRAUJ"c^c :d40r7u30rl0f 30 

r5h30" :PSETC60, 103 :DRAU)"c=c ;r25f 7d7g9 ,: S,P 

SETC70. 15] :DRAüJ"c=c ; r7f 5d2g5h7u¿" 

2740 PSETC 120. 10] :DRAlú"c=-c : 15g 27e27r5f 27 

15h 10128g 13h 5" :PSETC115. 15] :DRAUJ"c=c :g5r 

15h515" 

2750 PSETC 140, 10] :DRAUl"c=c :u3150u5r80d51 

25d23h5ul4" :PSETC150. 12] :DRAUJ"c=c :d25r30 

u5125u5r20u5120u5r25u5130" 

2760 IF C=15 THEN 2770 ELSE 2790 

2770 PAINT C22. 12].C:PAINT C60, 14] . C :PAI 

NT C63.30].C:PAINT C63. 12] . C :PAINT C122. 

13].C:PAINT Cl ¿0. 6] . C :PAINT C IS3, 14D.C 

2780 C=l :GOTO 2720 

2790 LINE C130,50]-C200.70].2.B:PRESEr f 
140,55] :COLOR 15 :PRINT#1 , "NIGHT" ;L INE fl 
5.0]-C255.75],2,B:PRESET C 21 0,60] :COLOR 
6:PRINTttl. "D.G.C" :X= 180 : v=90 : Al = 1 :A2=25: 
A3=18:A4=26:T=X+8:C1=15:B1=2:G0SUB 3170 
2800 PRESETC30.85] :COLOR 10 :PRINT#1 , "OPC 
IONES" :PRESETC30, 100] :PRINT#1 , "* INSTRUC 
CIONES" :PRESETC30, 115] :PRINT#1. "* JUGAR" 
:PRESETC30, 130] rPRINTttl , "* FIN" :L INE f 160 
.77] -C255. 1853, 2, B 

2810 LINE C165. 150] -C250, 180] , 2,B:P^ESFT 
C 175. 160] : COLOR 9:PRINT#1. "D.G.C" í^E-^E 
T C30.-145] :COLOR 10 :PRINTtt 1 . "* PUNTUACIO 
N" :PRESET C30. 160] :PRINT#1 . "* DEHOSTRACI 
ON" :PRESETC30. 175] :C0L0R9 :PRINT*1 . "Fl , F2 
,F3.F4,F5" 

2820 ON KEY GOSUB 2850,2830,2840,3040,31 
30 :F0RN=1T05 :KEYCN]ON :NEXTN :GOTO 2820 
2830 BEEP:P=0:U=3:S=12:U'1=6:B=1 :UI=1 :V2=1 
35:SC=0:GOTO130 
2840 END 

2850 REM ***** INSTRUCCIONES ***** 
2860 LINEC15,77]-C255. 191], l.BP:PUT SPRI 
TE 0.-C255, 191], 1 :PUT SPRITE 1.C255.191]: 
PUT SPRITE 2, C255, 191 ] :PUT SPRITE 3, C255 
, 191 ] :PUTSPRITE 4.C255.191 ] 
2870 PRESETC30.85] :PRINT#1. " I NSTRUCC IONE 
S" :PRESETC20, 100] :PRINTtt 1 . "Bob , e 1 k arate 
ka, ha estado de yacac ionos.lientr 

as su enemigo. ha instalado trampas 



y robots en casa de BOB. " 
2880 PRESETC20, 133] :PRINT#1 . "T U misión e 
s llegar al tatarrn para encontrar el ma 
ndo-bomba ,y asi acabar con tu enem 

igo. Hay objetos. que te ayudan, pero ot 
ros que no s i r-^en Dará nada. " 
2890 IF I NKEY$= " "THEN GOTO 2900 ELSE GO 
TO 2890 

2900 LINEC0.77]-C255. 191], 1,BP:PRESET C3 
0.85]:COLOR 7 :PRINT#1 , "CONO NATAR ROBOTS 
" ¡COLOR 10:PRESETC20. 100] :PRINT#1 , "Para 
matar robots , t i eres dos go Ipe s : :°RPSE 
TC30. 1 18] :COLOR 9 :PRINT#1 . " 1 ] flAE-GFRI 1 '' : 
PRESET C 30, 130] :PRINT#1, "2] YOKO - T OBI-GER 
I " 

2910 COLOR 10 :PRESETC20, 145] :PrjnT#1 , ,; P ^ 
ensa qu-e uno de los dos da mas puntos 
que el otro, y que si te penes en pos i 
cion DEFENSA, no te ocurre nada .pero 
te qu i tan puntos " 

2920 IF INKEY$=" "THEN GOTO 2930 ELSE GO 
TO 2920 

2930 LINEC0,77]-C255. 191], l.BF 
2940 PRESET C 30, 83] :PRINT#1 , "*En el Pas i 1 
lo hay puerta late ral " :PRESETC30 

, 100] :PRINT#1. "*En el refugio hay comida 
" :PRESETC30, 1 17] :PRINT#1 . ,; *Para salir- de 
1 sótano pasar por la ventana" 

2950 PRESET C30. 134] :PRINT#1 . "Hay 13 hab 
itaciones.y en la mayoría hay robo 

ts." 

2960 PRESET C 30,157] :COLOR 7:PRINT #1,"* 
*Solo existe una forma de llegar d \ r e 
ct amen te al TATAMI, teniendo, cierto o- 

b jeto.. y estando en el refugio **" 

2970 IF I NKEY$ - " "THEN GOTO 2980 ELSE GO 
TO 2970 

2980 LINEC0.77]-C255, 191 ] . 1 , BF :PRESETf 30 
,85]:C0L0R 10 :PRINT#1 , "Hay cuatro pisos, 
y el TATAMI esta en l.o mas alto":PRES 
ETC20, 115] :COLOR 9 :PRINT*t 1 , "En el pas i 1! 
o. el suelo es corred ¡¿o, y se avan; 

a. muy de s pac i o " 

2990 IF I NKEY$ - " "THEN GOTO 3000 ELSE - GO 
TO 2990 

3000 LINEC0, 77] -C255. 191 ]•, 1 , BF :PRESETf 30 
, 1 10] :COLOR 9:PRINT#1. "*****EL IGE*****'- : 
PRESET C30, 125] :PRINT#1 . "1 V JOYSTICK" :PR 
ESETC30, 140] :PRINT#1 . "2] KEYBOARD" - 
3010 IF INKEY$- " 1 " THEN J1--1 :GOTO3030 
3020 IF INKEY$-"2"THEN J1=0 ELSE GOTO 30 
10 

3030 B=1:LINE C 0, 77] -C 255, 1 91 ] , 1 , BF :GO T 
2800 

3040 LINEC0,77]-C255, 191], 1 , BF : PRESET C 50 
. 100] :PRINT#1. "PUNTUACION" :PRESETC60. 1 1 S 
] :PRINT#l . :SC 

3050 PRESET C 30, 185] :PRINT#1 , " i'Pu Isa 1.a b 
ama espac iador-a]" 

3060 IF INKEY$=" "THEN LINEt0,77] 255,1 
91 ], l.BF :GOTO 2790 ELSE GOTO 3060 
3070 COLOR ,1,1 

3080 STRIGC0]OFF:STRIGC1]OFF:SCREEN 0:CL 
SrüJIDTH 20 

3090 L0CATE3.5:PRINT"KARATE N ISHT " s LÓCAT 
E 4,7:PRINT"Por D.G.C" : LOGATE 2,10:PRIh'r 
"Lo has logrado. con el mando -bomba. que 
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tienes ano ra. 
con tu enemigo 



3100 
} " 

3110 
"Tus 
3120 



puedes acc 
; 1.20:PRÍNT"CPulsa Id tecla, p 
2:1 .0Cr»TFI2. 16:PRINT 



SC=SC+2000 :COLOR 
puntos : ' :SC 

I F IKKE V$ : _- " p " OR I NKEY$-= " P " THENRUNELS 
ÍGOTO3-120- • •' '•*...' 
3130 REM - ***** DEMOSTRACION ***** 
3140 DATA 200.255,100.100,233.34,123.25. 
34.57.0,0, 100. 14:REST0RE 31 40 :PORN=0TO 1 
3:READD:S0VÍND N.D:NEXT N 

3Í5*0 'LINEC0, 77] -C255, 191 3, 1 , BF~:l_ INE C15. 
77V-C 155, 185D.2,B:LINEr. 160, 773- C 255, 185 D 
, 2.B :X^50 :Y=l 10 :T=x+8 :31 = 1 :A2=2 :A3=3:A4= 
4:C1--15:B1-1 :LINEC165. 142D-T250. 180 D, 2, B 
'•PRESET C 1 70, 150 3 :COLOR 10:PRINT#1. "D.G.C 

3160 PRESETC40, 90D :C0L0R7 :PRINT#1 , "DEMOS 
'TRAC I ON'" :LINEC20» 160T-C150, 180].2,B 
3170 PUT SPRITE 0. C T . Y ] . 8, :PUT SPRITE 1 
, CX, Y+16D. 15. Al :PUT SPRITE 2, CX+16» Y+16] 
,15.A2:PUT SPRITE 3. CX. Y+323 . 15, A3 :PUT S 
PRITE 4, CX+16.Y+32].C1.A4:IF Bl=2 THEN R 
ETURN 







3180 LINEC165.95]-C240, 140]., l , BF :PRESETC 
170. 100] :PRINT#1. "NORMAL" :FOR N=0 TO 700 
:NEXT n 

3190 B1~-2:C1M : T=X : Al=5 : A2=6 : A3=7 :L INEC 1 
55,95] -C 240, 140], 1 , BF : PRESET C 170, 100] :PR 
INTUI , "MAE-GERI " :GOSUB 3170:PORN=0 TO 70 
0:NEXT N 

3200 A3-17:L INEf 1 65 , 95 ] - f 240 , 140], 1,BF:P 
RESETC170. 100] :PRINT#1. "YOKO-TOBI" :PRESE 
ff 170. 115] :PRINT#1 . "GERI " :GOSUB 3170 :FOR 
N-0 TO 700:NEXT N 

3210 A1--1 :A2^25:A3--18:A4r:26:T=:X+8:Cl = 15: 
LINEfl65,95]-r240, 140], 1 . BF ¡PRESET C 1 70. 1 
00] :PRINT#1 . "CAMINANDO" :GOSUB 3170 :FORN= 

TO 700:NEXT N 

3220 ftl-1 :A2--27 :A3"-3:A4-4 :t^x+8 :C1 = 15 :LI 
NEC 165. 95] -C240. 1^0] . i . BF :PRESETC 170. 100 

1 iPRINTttl. "DEFENSA* 1 :GOSUB 3170 :FORN=0TO7 

00 :NEX^N 

3230 PRESETC23. 163] rCOLOR 10 :PRINT#1 , " CP 
u l Sd la p ] " 

3240 K$--INKEY$ : IF K$^"p" OR K$="P." THEN 
COLOR 1 :POR N=0 ÍO 4:PUT SPRITEN, C255, 19 

1 ]. 1 :NEXT N:LINEC0,77] -C255, 191], l.BF:GO 
TO 2790ELSE GOTO 3240 
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SNAKE 



Manhattan Transí er, SJL 
Formato: cassette 32K 
Mandos: teclado o joystick 
Teclee: LOAD «CAS:», R 



Sonido: Adecuado 
Gráficos: Buenos 
Conclusión: Su sencillez es su 
gran atractivo. Crea afición y... 
desesperación. 



PING FONG 



Las apariencias enga- 
ñan y en el caso de Sna- 
ke mucho más. Prime- 
ro este juego aparece como 
muy sencillo y argumental- 
mente lo es. Se trata de que 
Snake coma una serie de nú- 
meros y evite chocar con los 
muros y llegar tarde al objeti- 
vo, porque el número inicia su 
cuenta atrás y el cero es mor- 
tal. Sin embargo, esta sencillez 
se torna en dificultad a medida 
que Snake, la serpiente que al 
principio sólo muestra su ros- 
tro goloso, va comiendo tam- 
bién crece su cuerpo y sus mo- 
vimientos se hacen cada vez 
más torpes. Al mismo tiempo 
los números van apareciendo 
en distintos lugares y con ma- 
yor velocidad, lo que sumado a 
la «gordura» de Snake y a los 
nuevos peligros que se inter- 
ponen en su camino el panora- 
ma se complica muchísimo. 
Además, Snake tampoco puede 
volverse sobre su propio cuer- 
po, ya que el veneno de sus col- 
millos se torna fatal contra 
ella misma. Apenas comiences 
tienes que estar muy atento 
porque Snake, con su tremen- 
da gula, sale disparada hacia 
cualquier parte y si tu capaci- 
dad de reacción no es lo sufi- 
cientemente rápida lo más 
probable es que la serpiente 
vaya a dar contra el muro elec- 
trizado más próximo. 

Snake tiene salidas por el 
cerco, de modo que si quieres 
pasar de un extremo a otro, 
sólo tienes que conducirla a 
través del pasadizo que hay en 
los lados izquierdo y derecho. 
Es el modo de ganar tiempo y 
evitar que el campo se le llene 
de cruces mortales, que dificul- 
ten aún más sus andanzas de 
glotona. 

□□□□□□□□□□□□□□□ 



Si eres aficionado al ping- 
pong lo puedes practicar 
tranquilamente desde un 
cómodo sillón, sin perder, cla- 
ro está, la emoción del juego. 

Tú eliges; si crees ser lo sufi- 
cientemente bueno te aconsejo 
comprobarlo enfrentándote a 
la computadora. Para ganarle 
debes tener buenos reflejos y 
gran habilidad en el manejo de 
las palas. Si no crees dominar 
bien estas dos cualidades, bús- 
cate un compañero que esté a 
tu nivel -tendrás más posibili- 
dades de ganar-. Un partido 
consta de 3 juegos y el primero 
que consiga 21 tantos gana el 
juego, pero el partido lo gana 
quien más juegos tenga a su fa- 
vor. 

... Y comienza el partido: 
Cada jugador tiene 5 saques, 
si los practicas bien podrías 
ganarle un punto a tu rival por 
cada saque, por el contrario, 
por cada saque nulo será tu 
compañero el que gane el tan- 
to. 

El público será un gran ani- 
mador durante todo el partido 
para los dos jugadores. Sus 
aplausos y silbidos se dejarán 
oír en cada tanto. Con respecto 
al manejo de las palas no debes 
preocuparte, sólo has de mo- 
ver la palanca del mando para 
golpear la pelota teniendo así 
un dominio del disparo. Las 
posibilidades son: 

-disparo con gran potencia 
y rozando la red. 

-disparo alta y suave. 

—disparo con efecto, etc. 

[Pero cuidado! si tus cálculos 
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te fallan, la pelota podía salir 
fuera y si el otro jugador no la 
toca, el tanto sería para él. En 
los saques has de dirigir la pa- 
lanca hacia delante y seguida- 
mente a un lado. ¡Suerte! y que 
gane el mejor! 



Sonido: Muy real 
Graíismo: Bueno 
Conclusión: Un juego super 
entretenido y de gran verismo. 
Precio aproximado: 5.300 pts. 
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EL SECRETO DE 
LA PIRAMIDE 



Manhattan Transí er, SJL 
Formato: cassette 32K 
i: teclado 




La pirámide de Amenho- 
tep IV, también conoci- 
do como Akhenaton, 
guarda en sus laberínticas 
profundidades un gran tesoro 
que tú puedes llevarte. Sin em- 
bargo, antes tienes que avan- 
zar por corredores donde los 
peligros son constantes y tam- 
bién las sorpresas. En alguno 
de ellos te encontrarás objetos 
que te servirán para alcanzar 
tu objetivo. Claro que no debes 
perder de vista que para lo- 





grarlo tienes antes que acce- 
der a claves que te irán abrien- 
do poco a poco los secretos que 
esconden arcones, cofres, sar- 
cófagos. Muchas veces, y os co- 
mento a modo de pista, ten- 
drás que ir y venir por las mis- 
mas habitaciones, abrir puer- 
tas, hacer ofrendas, contestar 
enigmas, subir y bajar por 
aberturas, sin olvidar que las 
cosas no se hacen como las 
imaginamos sino como son. 
Por ejemplo, no puedes exami- 
nar un cubo, sin antes cogerlo, 
ni subir o bajar a una depen- 
dencia si no cuentas con una 
soga o una escalera. 

Otra cosa que tienes que te- 
ner en cuenta es que hay una 
lista de verbos que puedes uti- 
lizar. Trata de ser preciso en 
tus órdenes y no coloques es- 
pacios de más, pues el ordena- 
dor no te aceptará lo escrito. Si 
te ves en apuros pide ayuda, a 
veces el ordenador te dará al- 
guna pista, pero otras no y 
como tiene un cáustico sentido 



□□□□□□□□□□□□□□□□□c 
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insertar la tarjeta en el cartu- 
cho. El segundo paso, y con el 
ordenador MSX apagado, in- 
sertar el cartucho en la ranura 
correspondiente. El tercer 
paso es encender el televisor y 
el ordenador y en pantalla 
aparecerá la presentación del 
juego. ¡Que te diviertas en la 
fiesta de Willy! 



del humor se divertirá contigo. 
Otra ayudita que yo te puedo 
dar es que si llevas contigo una 
serie de objetos y necesitas co- 
ger otro y ya no puedes hacer- 
lo, lo mejor es dejar el que 
creas menos necesario, apun- 
tar donde lo dejas, por las du- 
das, y coger el que necesitas en 
ese momento. A medida que 
vayas jugando descubrirás que 
el desafío es grande y que es 
muy fácil perderse. Por eso te 
recomiendo que a medida que 
avanzas por los intrincados 
pasillos vayas haciéndote un 
plano, algo así como dejar mi- 
gas de pan como Hansel y Gre- 
tel. Bueno, no te cuento más y 
que te diviertas, explorador. 



8onido: Apropiado 
Gráfico:- 

Conclusiones: Un juego de rol 
que requiere mucha paciencia y 
capacidad de retentiva para evi- 
tar caer en trampas. Un desafio 
a la inteligencia y sagacidad del 
jugador. 

y " cto700pta 

QQQQQQQQ 



JET SET WILLY 



BBBCABD/ 
FOHMATO: Tarjeta 
MAHDOSUoystlckoteclado 



Willy es extravagante y 
rico y su casa una espe- 
cie de complicado labe- 
rinto con sótanos, galerías, 
piscinas subterráneas^ tram- 
pas, etc. por dondé extraños 
personajes y objetos se inter- 
ponen en el camino del dueño 
de casa para evitar que se lleve 
los objetos necesarios para or- 
ganizar una fiesta en la parte 
alta. Incluso, Willy tiene un 
ama de llaves lo suficiente- 
mente protestona como para 
no dejarlo ir a la cama si desea 
hacerlo antes de recoger los 
objetos. 



A través de sesenta panta- 
llas diferentes tienes que de- 
mostrar muchísima habilidad 
para conducirlo a buen cami- 
no. Dado que este juego es su- 
mamente popular y muchos de 
nuestros amigos ya lo conocen 
no abundaré en detalles. Lo 
importante ha sido reseñarlo 
porque es el primero que se co- 
mercializa en versión Tarjeta 
Inteligente en España. Por 
este motivo Junto con la tarje- 
ta también se incluye el cartu- 
cho adaptador -el Bee Pack— 
que servirá para insertar en el 
ordenador no sólo a Jet Set Wi- 
lly, sino a todas las próximas 
Bee Card. 

Para que no tengas ningún 
problema en cuanto a su em- 
pleo, ten en cuenta que lo pri- 
mero que tienes que hacer es 



Sonido: Monótono 
Grafismo: Excelente 
Conclusión: Un juego apasio- 
nante por la cantidad de panta- 
llas que ofrece y la originalidad 
de las situaciones. 
Precio Aproximado: 8.500 
pts. (incluido Cartucho Adapta- 
dor) 
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uper Cobra será tu apodo q > 
si tienes éxito en esta pe- n ¡: 
ligrosísima misión. Con- 
siste en atravesar todo el cam- 
po enemigo con un helicóptero 
equipado de bombas y misiles 
para tu defensa. Ya que al- 
guien ha dado el chivatazo y te 
espera con todo su armamento: 
misiles que dispararán cuan- □ í 
do menos te lo esperes, ovnis □ : 
que irán a tu encuentro, caño- □ • 
nes muy bien camuflados en- □ • 
tre el paisaje rocoso, etc. Para □ : 
conseguir combustible se lo □ : 
tendrás que robar al enemigo: □ ■ 
los tanques de combustibles □ \ 
irán apareciendo a medida que □ '< 
avances, pero pon mucha D : 
atención ya que estos están se- .-, ¡ 
miocultos entre las rocas y es R : 
muy difícil acertarles con el p: • 
disparo sin estrellarte contra ^ \ 
alguna saliente de dichas ro- ^ : 
cas. En caso de haber apunta- a ¡ 
do con precisión y el disparo es D 
positivo, tu depósito se llena- 3 
rá. □ 
El camino a recorrer es muy □ 
largo y además a medida que □ 
avanzas los peligros a los que □ 
te has de enfrentar son mayo- □ 
res. □ 
El dominio del helicóptero □ 
es muy importante para obte- q 
ner éxito en esta misión: pue- n 
des dirigirlo hacia adelante, D 
arriba, abajo y de tenerlo un „ 
instante en caso de no poder 
avanzar, pero, atención, un de- 
talle a tener en cuenta. ¡Nunca uj 
podrás retroceder! 

Por cada cañón, ovni o tan- ^ 
que que tú derribes la compu- □ 
tadora aumentará tu puntaje. □ 
Y ahora, después de estas ins- □ 
trucciones, muchachito, ¿te □ 
apuntas a esta misión? 




Sonido: Acertado 
Grafismo: Preciso 
Conclusión: Este es uno de los 
juegos de mayor éxito de Kona- 
mi por la diversidad de situacio- 
nes a medida que se avanza. 
Precio aproximado: 5.300 pts. 
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INICIACION AL LENGUAJE MAQUINA 



DEL HAUD AL SOÜ 



RUTINAS DE BIOS 



En nuestro número extra de Navi- 
dad incluíamos un pequeño lis- 
tado de rutinas ROM que podría 
ser de utilidad para nuestros lectores. 
Hoy explicaremos algo más en profundi- 
dad alguna de ellas, empezando por la 
rutina 00D5, que como ya hemos dicho 
examina el estado del joystick. 

Antes de empezar recordaremos que 
todas estas rutinas en código máquina 
que están a disposición del programa- 
dor avanzado de MSX se denominan 
generalmente con el nombre de BIOS 
(Basic Input Output System) y son es- 
tándar en todos los MSX, con alguna 
salvedad que estudiaremos en su mo- 
mento. En resumen estas rutinas BIOS 
son pequeños programas en código má- 
quina que utiliza el ordenador para tra- 
bajar y que nos son accesibles mediante 
la instrucción CALL. Sin embargo, en al- 
gunos casos es necesario que sepamos 
donde debemos depositar los datos con 
los que operará la rutina, así como en 
qué lugar (registro de datos) colocará el 
resultado, nuestra rutina. 

Decíamos en nuestro anterior artícu- 
lo, que la rutina BIOS que se encuentra 
en la dirección 00D5 examinaba el esta- 
do del joystick. Pues bien para hacerla 
funcionar es necesario en primer lugar 
colocar en el acumulador un valor de- 
pendiente del joystick que queremos in- 
vestigar. 

PARA INVESTIGAR 
el teclado 
joystick 1 
joystick 2 

Introducimos en el ACUMULADOR 

1 
2 

A continuación ejecutamos la rutina 
mediante un cali 00D5 y cuando leemos 
de nuevo el registro A nos encontrare- 
mos con que el acumulador contiene un 
valor de a 8 que nos indica lo siguiente: 

ningún movimiento 

1 hacia arriba 

2 hacia arriba a la derecha 
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3 hacia la derecha 

4 hacia abajo a la derecha 

5 hacia abajo 

6 hacia abajo a la izquierda 

7 hacia la izquierda 

8 hacia arriba a la izquierda 



Esto nos plantea diversos problemas, 
primero esta rutina necesita que colo- 
quemos en el acumulador un valor, no- 
sotros utilizaremos el 0, pues vamos a 
leer el estado del cursor, para ello debe- 
remos utilizar el nemónico de assembler 
correspondiente LD A, 00 carga en el 
acumu[ador cuya traducción a hexade- 
cimal e*s 3E 00 y a continuación pode- 
mos ejecutar la FUNCION USR desde el 
BASIC (naturalmente ahora has de pul- 
sar alguna de las cuatro teclas de cur- 
sor, pues sino no sabrás si te ha funcio- 
nado la rutina). Seguidamente, repesca- 
mos el valor que contiene actualmente 
el acumulador mediante una instrucción 

LD (dd), A 
donde (dd) es una dirección de memoria 
de 2 bytes que esta libre para usuario 
(normalmente se utiliza de la 60.000 
para arriba, naturalmente en decimal). 

Luego tan sólo tendrás que leer esa 
dirección de memoria mediante un 
PEEK y te dará el valor correspondiente 
al cursor o cursores pulsados. 

Naturalmente este sistema es bastan- 
te engorroso, pues pasamos del BASIC 
a MLP dos veces, con lo que perdemos 
la presumible velocidad del lenguaje 
máquina, pero aquí viene a salvarnos 
una instrucción assembler de gran po- 
tencia, la llamada «cali». 



CALLnn: LA LLAMADA Al 

Con la instrucción CALL nn: llamamos 
a la ejecución de una subrutina en len- 
guaje máquina desde el mismo lenguaje 
máquina. NN será la dirección de me- 
moria a la que salta el programa, la di- 
rección de la «siguiente instrucción» 
como sabemos se guarda en el conta- 
dor de programa o PC (registro doble de 
dos bytes) pues bien cuando se ejecuta 
un cali este valor se acumula en la pila 
(stack) pasando el valor nn (nueva di- 
rección de la subrutina) a ocupar el con- 
tador de programa PC. 

Cuando se ha ejecutado la subrutina 
la pila o stack debe estar en el mismo es- 
tado que al iniciarse, pues debe encon- 
trar allí la dirección de la siguiente ins- 
trucción a ejecutar tras el salto a la su- 
brutina. Como vemos es muy similar a la 
instrucción GOSUB del BASIC. 

Existen 9 tipos diferentes de CALL 
que veremos más tarde. Ahora simple- 
mente nuestro programa se limita a car- 
gar un valor en A, ejecutar mediante cali 
la rutina BIOS y mover el contenido de A 
a un área de memoria manipulable (nn) 
por ejemplo: 

LD A, 00 
CALL 00D5 



LD (nn), A 

Luego sólo tendremos que leer el con- 
tenido de (nn). Si traduces todo esto a 
nemónicos (encontrarás la traducción 
de las instrucciones cali a Hexa en la ta- 
bla núm 1.) y lo introduces notaras la 
gran rapidez de esta rutina. 

Algunos Assamblers (como el recien- 
temente aparecido de Sony) permiten 
hacer CALL a subrutinas de la ROM 
BIOS sin necesidad de saber su direc- 
ción de memoria, simplemente con una 
etiqueta con el nombre clave que tiene 
cada rutina de la ROM BIOS esta rutina 
se denomina en nombre clave GTSTCK 

ROTTHAGTTRIG 00D8 

Esta otra rutina que encontramos a 
continuación en el mapa de memoria 
funciona en todo como la anterior, se en- 
cuentra en la dirección 00D8 y se encar- 
ga de controlar el disparador, primero se 
introduce en el acumulador un valor de 
a 4 según queramos investigar: 

barra espaciadora 

1 disparador 1 A 

2 disparador 2A 

3 disparador 1B 

4 disparador 2B 



el contenido del acumulador en la salida 
es de si no se ha pulsado el disparador 
y de 255 si se ha efectuado un disparo. 
El programa para comprobarlo será en 
todo simular al anterior. Estas dos ruti- 
nas varían los posibles contenidos de 
los registros AF BC DE y HL por lo que si 
los utilizábamos en nuestro programa 
en MLP será necesario salvarlos en 
áreas de trabajo previamente seleccio- 
nadas (direcciones de memoria accesi- 
bles al programador). Cuando utiliza- 
mos estas dos rutinas será muy útil colo- 
car bucles de retardo pues si no la gran 
rapidez de las rutinas puede ser un in- 
conveniente, aunque este será un pro- 
blema con el que sólo se encontrarán 
los programadores avanzados, por lo 
cual no entraremos en detalles aún a 
este respecto. 



MAS RUTEAS UTILES 

En la misma línea que las rutinas an- 
teriormente descritas nos encontramos 
con otras dos que no fueron publicadas 
en nuestro extra de Navidad, y que son: 

GTPAD en la dirección 00DB 

que nos devuelve el estado de uno de 
los tableros gráficos conectados al port 
de joystick. 

Introduciendo en el acumulador un 
valor de a 3 la rutina nos devuelve el 
estado del port 1 de joystick, con un va- 
lor de 4 a 7 el del port 2 



GTPDL en la dirección 00DE 

esta rutina nos indica el estado de los 
posibles paddles conectados al siste- 
ma, en este caso con un número par in- 
vestiga el estado del paddle asignado al 
port 2 de joystick y mediante un número 
impar introducido en el acumulador lee 
el estado de un paddle asignado al port 
1 de joysticks. El acumulador contiene 
un o 255 dependiendo del estado del 
paddle pedido. Para utilizar esta rutina y 
la anterior es necesario estudiar a fondo 
la instrucción PAD del Basic y de ser ne- 
cesario desesamblar las rutinas y ver 
qué hacen exactamente. 

Esperemos que con estos comenta- 
rios se haya clarificado la utilidad y fun- 
cionamiento de estas rutinas ROM 
BIOS que publicamos en nuestro ante- 
rior articulo, sin embargo el estudio de- 
tallado de cada una de ellas y de algu- 
nas otras que no se publicaron, sería 
tema para muchos artículos, e incluso 
necesitaríamos todo un artículo para 
analizar alguna de ellas. 



TABLA I 

CALLC.nn 
CALLM.nn 
CALLNC, nn 
CALLnn 
CALL NZ, nn 
CALLP.nn 
CALL PE, nn 
CALLPO, nn 
CALLZ, nn 



DCnn 
FCnn 
D4nn 
CDnn 
C4nn 
F4nn 
ECnn 
E4nn 
CCnn 



excepto CALL nn, todas las demás lla- 
madas a subrutina sólo se ejecutan si 
se cumple una condición en el registro 
de Flags (algo similar a la instrucción 
BASIC). IF, Then, ELSE, lo cual será es- 
tudiado en profundidad en el próximo ar- 
tículo. De momento limítate a utilizar el 
nemónico CALL nn CD nn. 

Programa de ejemplo 

10 DEFUSRI=60000!:A=USR1(0) 
20 PRINTPEEK(6001 1 !):GOTO10 

Hisoft GEN Assembler. Page 1 . 

Pass 1 errors: 00 

en BASIC 

EA60 10 ORG 60000 

EA603E00 20 LD A,0 

EA62CDD500 30 BUCLE: CALL PtD5 
EA65326BEA 40 LD (60011), A 

EA68B7 50 ORA 

EA6928F7 60 JRZ, BUCLE 

EA6BC9 70 RET 

Pass 2 errors: 00 
Table used: 27 from 1 10 

en Assambler 
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COMPACT DISC INTERACTIVO PLAN 
CONJUNTO PHUJPS/SONY 



Philips y Sony anuncian 
sus planes para someter 
las especificaciones para 
las aplicaciones de la CD-ROM 
interactiva. Este formato, lla- 
mado «CD Interactive Media» 
(CD-I), está destinado a su em- 
pleo en el hogar y en la educa- 
ción, e imprimirá nuevos ím- 
petus a las industrias editoria- 
les, de grabación y de software, 
gracias a su amplia variedad 
de aplicaciones y su alto rendi- 
miento con relación al precio. 

En 1980, Philips y Sony de- 
sarrollaron juntos el sistema 
de audio digital de disco com- 
pacto, y después han comer- 
cializado los productos de este 
sistema en 1982. Desde enton- 
ces, la aceptación que por par- 
te del público han alcanzado 
los Compact Diecs y sus toca- 
discos ha ido creciendo sin ce- 
sar. Apoyándose en el éxito del 
pequeño, robusto y flexible dis- 
co, Philips y Sony han ido am- 
pliando sus posibilidades inte- 
ractivas que, como consecuen- 
cia de su enorme capacidad de 
almacenamiento, lo convier- 
ten en un producto ideal, bien 
«per se», bien para su empleo 
como periférico de ordenador. 
Ya en 1983 alcanzaron acuer- 
dos de normalización para CD- 
ROM, con un paso más en el 
perfeccionamiento de la CD- 
ROM en 1986, en que se consi- 
guió establecer el formato físi- 
co que ha llevado a la obten- 
ción de la base para el almace- 
namiento de audio, vídeo y da- 
tos de ordenador en discos óp- 
ticos. 

La nueva especificación pro- 
porciona un formato completo 
que permite un empleo inte- 
ractivo total de la CD-ROM 
para manejar, no ya sólo musi- 
oa y sonido, sino incluso pala- 



bra, Imágenes fijas y anima- 
das, gráficos, programas de or- 
denador y datos para éstos. La 
nueva especificación también 
reforzará las posibilidades de 
los ordenadores personales y 
domésticos con información 
fácilmente accesible, de audio- 
visuales, con elevada ecualiza- 
ción. De este modo, Philips y 
Sony esperan que este nuevo 
medio creará muchas oportu- 
nidades para que las indus- 
trias de hardware, software y 
editoriales provean al consu- 
midor con formas realmente 
nuevas de entretenimiento in- 
teractivo y elementos educati- 
vos, desde canciones oon texto 
e imágenes hasta diccionarios 
de conversación y enciclope- 
dias, así como otras aplicacio- 
nes que quedan fuera de lo aho- 
ra Imaginable. 

La nueva norma CD-ROM, 
«CD Interactive Media» (CD- 
I), asegura el mismo nivel de 
intercambiabilidad que el CD 
digital audio. Por consiguien- 
te, cualquier disco hecho con 
la nueva especificación, lo 
mismo que los normales de au- 
dio CD8, funcionarán en cual- 
quier parte, con cualquier 
equipo basado en el nuevo for- 
mato. Como opción, los toca- 
discos con posibilidades de in- 
terfaz de ordenador incorpo- 
radas también podrán, actuar 
como periféricos para los or- 
denadores personales o do- 
mésticos. 

Philips y 8ony creen since- 
ramente que la electrónica de 
consumo y la industria de los 
ordenadores apoyarán las lí- 
neas básicas de este formato 
tan flexible. Los detalles fina- 
les de la especificación del nue- 
vo formato se completarán en 
los próximos 



DICCIONARIOS 
DE MICRO 
INFORMATICA 

Editados por Noray 

La Editorial Noray acaba 
de lanzar dos dicciona- 
rios dedicados a la ml- 
croinformática con la firma de 
Ramón Tapies, en distintos 
formatos, uno normal y el otro 
mini. El primero recoge el am- 
plio argot tecnológico de la mi- 
croinformática tanto en espa- 
ñol como en inglés. El «Mini 
diccionario microinformátl- 
co» está pensado con el mismo 
criterio práctico que el ante- 
rior, pero con la posibilidad de 
llevarlo en el bolsillo, lo cual lo 
hace especialmente interesan- 
te para los estudiantes. 
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TABLETA 
GRAFICA 
PIONEER 

Un periférico 
interactivo 

La tableta gráfica PX-TB7 
Pioneer y el cartucho 
ROM de vídeo art consti- 
tuyen uno de los periféricos 
más interesantes de MSX por 
sus aplicaciones gráficas Inte- 
ractivas. La Tableta Gráfica 
permite un fácil acceso a los 
efectos gráficos y a las órdenes 
«PAINT» y dispone de una 
gran capacidad para la reali- 
zación de gráficos animados. 
Su versatilidad le permite 
«pintar» imágenes animadas 
de vídeo. Su sistema gráfico 
también incluye una serie au- 
tomática de figuras geométri- 
cas que permiten interesantes 
combinaciones. Usándolo con 




el cartucho ROM cumple fun- 
ciones de superimpose. En Es- 
paña este periférico Pioneer es 
distribuido por Vieta Audio 
Electrónica, SA_, Bolivia 239, 
Barcelona 08020. 



DISKETTE DE 
SONY 

Modelo 0MD3440 

Los micro floppydisk 0M- 
D3440 de Sony se pre- 
sentan en cajas de diez 
diskettes. Estos tienen una ca- 
pacidad de 500 kbytes sin for- 
matear y 360 Kbytes libres 
una vez formateados. Su tama- 
ño es el estándar de 3,5 pulga- 
das. El precio aproximado de 
este elemento esencial para 
trabajar con unidades de disco 
MSX, es de 9.500 pts. 




RRAZO ROROT 

Desarrollado por 
Spectravideo 



Un nuevo y atractivo pe- 
riférico se incorpora a 
la amplia gama que po- 
seen los aparatos MSX Esta 
vez se trata de un brazo robot 
-Robot-Arma-, que permite 
realizar una serie de trabajos 
muy simples a través de una 
interface especial y un progra- 
ma llamado Rogo. Este Inte re- 
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sante periférico que aún no se 
comercializa en España, sí se 
vende en Gran Bretaña a tra- 
vés de la famosa Quickshot a 
un precio de 39,96 libras. 



MUSICA Y 
TECNOLOGIA. 

Nueva publicación 




USICA y 
TECNOLOGIA 




A 



caba de aparecer el pri- 
mer número de la revis- 
ta «Música y Tecnolo- 



gía» que trata de responder a 
«las inquietudes musicales» 
tratando de abordar el empleo 
de la tecnología electrónica en 
las «artes del registro de soni- 
do y la composición musical». 
De su amplio sumario pode- 
mos destacar «MIDI: Teoría y 
practica», «Domando al DX-7», 
«El estudio en casa» «Dígitos, 
Pistas y Pentagramas», etc. 
«Música y tecnología» a la que 
deseamos mucha suerte en su 
andadura editorial, aparece cada 
dos meses y cuesta 350 ptas. 



IDEALOGIC 
PREPARA 
SOFTWARE 
PARA MSX-2 




Con textos y gráficos de 
alta resolución 

Idealogic se incorpora con 
fuerza a la producción de 
software para MSX. Den- 
tro de esa tónica ya prepara un 
importante paquete destinado 
al entretenimiento, las utilida- 
des y la gestión. Un equipo Jo- 
ven y altamente cualificado 
trabaja en la creación de pro- 
gramas que supondrán un sal- 
to cualitativo de importancia 
que sin duda animará a otros 
fabricantes del sector. La co- 
lección Telarlum para MSX-2 
es uno de los caminos seguidos 



por Idealogic para satisfacer 
la cada vez más grande deman- 
da de software para MSX. La 
famosa colección de aventuras 
y cursos de aeróbic son ejem- 
plos de su intensa actividad. 



NUEVA TARJETA 
INTELIGENTE 

Producida en España 



Tras el contrato firmado 
por Serma, S A. con Hud- 
son Soft de Japón para la 
importación y distribución de 
la Bee Card, la empresa espa- 
ñola ha llegado a un acuerdo 
con Electric Software para la 
producción en este país de las 
tarjetas inteligentes del siste- 
ma Astron Soft. Estas tarjetas 
—que se comercializarán como 
Soft Card— contarán con su 
propio cartucho adaptador 
dado que por ahora no son 
compatibles entre si. 
Los primeros títulos de es- 




tas tarjetas ya están a la venta 
a un precio aproximado de 
8.500 pts. -incluido cartucho— 
y destacamos 1X2, programa 
dedicado a las quinielas futbo- 
lísticas, QH, dedicado a las qui- 
nielas hípicas, PANORAMA 
PARA MATAR, adaptación de 
la famosa película de James 
Bond, y LE MANS, famoso jue- 
go de carrera de coches. 



Loa señores José Suáres y Gushi, de Serma y Hudson Soft en el acto 
de firma del contrato de importación y distribución de la Bee Card. 




TEST DE LISTADO — viene de la pág. 29 
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-251 


2870 
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- 27 


2620 
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2750 


-216 


2880 


-120 


3010 


-227 


3140 


- 36 


38790 







TRUCOS DEL 



PROGRAMADOR 




CLAVE DE RUN 

Si no quieres que nadie ejecute tus 
programas sin tu permiso, teclea: 
POKE 32768,1 
A continuación introduce tu progra- 
ma, por ejemplo: 

10FOR k-1 to100 
20 PRINTk; 
30 NEXT 

Al escribir RUN para la ejecución del 
mismo, te quedarás asombrado, pues te 
aparecerá en pantalla: 

Sintax error 

Si quieres conseguir la ejecución, te- 

cl©3* 

PÓKE 32768,0 

Ahora, al teclear RUN el programa 
será ejecutado normalmente. 

Lorenzo Martínez Rubio 



SONIDO CON EL PPI 

Utilizando el puerto de sonido de 1 bit 
(responsable del chasquido de las te- 
clas), podemos crear sonidos como 
este: 

10FCRI= 1 to150step2 
20 ForA=1 to 150 -I: Next 
30 out 171,14: out 171,15: next 

PATRONES DE 
CARACTERES 

Sabiendo que la definición de los 
patrones de los caracteres empieza 
en la dirección & H 1 BBF de la ROM 
podemos ver como están formados 
dichos caracteres: 

10 screen 1: keyoff : inpuf'Carác- 
ter:"; n$ 

20 n=asc(n$): if n< 32 thengosub 
70 

30 i = 7103 + n*8:?:fora = 1toi+7 
40 a$ = bin$ (peek (a)) 
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50 ? right$ ("00000000" + a$,8); val 

(&B" + a$) 
60 next:end 

70 Inpuf'Código ascii del gráfico:"; 
n: return 

COLOR DE FONDO EN 
SCREEN 1 

Con este programa cambiamos el co- 
lor de fondo de los caracteres: 

10 Screen 1: Input" Color 

(1-15):";l 

20 Vpoke8196,i 

Juan A. VALERO ARIZA 



OPTIMIZACION 
INVERSION DE 
CARACTERES 

Les envío una posible optimización 
I del programa de inversión de caracteres 
publicado en el n.° 15 de MSX EXTRA 
en la sección de trucos del programa- 
dor. 




La idea consiste en calcular el com- 
plemento a uno de los 8 bytes de la tabla 
de atributos. De esta manera el tiempo 
de ejecución en invertir todos los carac- 
teres es de 19 segundos aproximada- 
mente y se consigue sólo borrando las 
líneas 110 a 180 y cambiando la 190 
por: 

1 90 VPOKE 1,255- VPEEK (I) 
Si queremos rebajar más el tiempo de 
ejecución, puede pensarse en que para 
efectuar la inversión de todos los carac- 
teres sólo hay que cambiar el color de 
frente por el de fondo en la tabla de colo- 
res, esto es intercambiar el primer cuar- 
teto por el segundo en cada byte. 

Invirtiendo en complemento a uno el 
espacio y el cursor y modificando la ta- 
bla de colores obtendremos la inversión 
de todos los caracteres. De esta forma 
se consigue rebajar el tiempo en invertir- 
los todos en tan solo 0.6 segundos (30 *■ 
31 interrupciones del VDP) aproximada- 
mente. 

Una posible solución es: cambiar la lí- 
nea 70 por 

70 IF A$ = "TODOS" OR A$ = "todos" 
THEN 230 
y añadir las siguientes: 

230 YSP = 32*8: YCR =255*8 

240 FOR I = TO 7 

250 VPOKE YSP + 1,255- VPEEK 

(YSP+I) 

260 VPOKE YCR + 1,255- VPEEK 

(YCR+I) 

270 NEXT I 

280 FOR I =BASE (6) TO BASE (6) + 

290 IZDA% = VPEEK (l)\16 : DCHA% 

= VPEEK (I) MOD16 

300 VPOKE 1,1 6*DCHA% + IZDA% 

310 NEXT I 

320 GOTO 210 

J.ATSERIA 



TABLA DE CONVERSION «SPECTRA» EN MSX 


TABLA DE CONVERSION ENTRE EL EXTENDED BASIC 1.0 (EL DEL MSX) Y EL 
EXTENDED BASIC 1.1 EL DEL SPECTRAVIDE0 318-328 Jorge CALVET 


MSX 


SVI 31 8-328 


FUNCION 


KeyOFF 
KeyON 


SCREEN,, O 
SCREEN,, 1 


Hace 

desaparecer 
los rótulos de 
las teclas de 
función del 
display 


SCREEN 2 


SCREEN 1 


Pantalla graf. 
alta resol. 


SCREEN 3 


SCREEN 2 


Pantalla graf. 
multicolor 


OPEN "GRP" AS N 


NO NECESARIA 


Permite 
escribir texto 
en pantalla 
gráfica. 


PSET (X,Y): PRINT"... 
DRAW"BMX,Y":PRINT«... 


LOCATE X, Y: PRINT*.. 


Posiciona 
texto en 
pantalla 
gráfica. 




PRESENTA 




M S X 



El soberano Jeque Abdul Al Kohol tiene una fabulosa flota 

de coches escondida en su palacio y su mecánico, Mick, 
se los quiere robar por que le paga con vuks, ojos de oveja. 
Para MSXde 64K. 



* ¿..i) 




Booga Boo salta a través de la exótica vetegación de 
profundas cavernas en dirección a una salida escondida en 
la parte superior. También elude al terrible dragón volante 
que ataca en cuanto aparece. Para MSX de más de 32K. 



DISPONIBLE EN LOS MEJORES ESTABLECIMIENTOS DE SOFTWARE 

P.V.P. 2.495 
SI NO LO ENCUENTRAS DIRIGETE A 



Mariano Cubi. 4 Entio. Tel. 218 34 00 - 08006 Barcelona 



EL UNICO JUEGO DE FUTBOL 
CON TODOS 






1EAM COLOR 




















SKILt- LEVEL 
HOLF TIME 


1 2 

3 


3 4 S 

s »© 






1MTFB VCMJR II 

lUP-EflOlES 


nm NOMEf 

( IHl SIOHt S 


r 



PON EL NOMBRE 
DE TU CLUB 
FAVORITO. 



LOS COLORES DEL 
UNIFORME DE TU 
EQUIPO LOS 
PUEDES ELEGIR A 
TU ANTOJO. 



RECORTA Y ENVIA ESTE CUPON A: <$> SERMA 
C/. BRAVO MURILLO, N.° 377. 28020 MADRID TELS.: 733 73 1 1 - 733 74 64 



|| TITULO 


PRECIO 


CANTIDAD 


NOMRRF Y APFI I IIW5- 


KONAMI FUTBOL 


4800 






IniRFranN- 






POBLACION: 






PROVINCIA- 


| CODIGO POSTAL:. 




FORMA DE PAGO: ENVIO TALON BANCARIO □ CONTRA REEMBOLSO □ 



LOS CARTUCHOS DE iGonaml. SON COMPATIBLES EN TODOS 
LOS ORDENADORES MSX DE LAS MARCAS: 

Sony, Toshiba, Cannon, Mitsubishi, Dynadata, Yashica, Sanyo 

National Panasonic, Philips. 



